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COSTRUISCI LA PRIMA BIBLIOTECA COMPLETA 
DI INFORMATICA PERSONALE 
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DI PERSONAL COMPUTER 

Volume per volume, settimana per settimana, tutti gli argomenti 

dell'informatica personale: da cosa significa “vivere coi computer" al BASIC; 

dal COBOL al PASCAL e ai più diffusi linguaggi e sistemi operativi (MS-DOS. CP/M, MSX ...) 

Dall'hardware al software, dalla programmazione dei personal computer aH'utllizzo dei più 

affermati pacchetti software: Multiplan, Visicalc, Lotus 1-2-3, Symphony dBase II, Wordstar ... 



la sua avventura nel 
mondo dei computer 
e ha bisogno di una 
guida sicura per 
costruire le basi della 
sua conoscenza ed 
esperienza. 



per ragioni di studio, 
hobby, lavoro, 
precise tematiche di 
software, di hardware 
e di programmazione. 



per esigenze professionali 
o culturali, un'organica 
Biblioteca di testi di base, 
scritti da esperti qualificati, 
coerente con un disegno 
editoriale di ampio respiro. 
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QUADERNI JACKSON 

DI PERSONAL COMPUTER 

Una Biblioteca di agili 
monografie, rivolta ad un 
vastissimo pubblico: 
appassionati, professionisti, 
studenti e tecnici. 

30 Volumi pratici redatti con uno 
stile chiaro, competente, accurato 
ed essenziale. 
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250 volumi per approfondire, 
dalle più diverse angolazioni, le 
tematiche legate al mondo del 
computer e della microelettronica. 

Per ordinare i volumi preferit i 
utilizzare l'a p posito modulo di conto 
corrente postale blu o il coup on. 

D. GIANNI - C. TOGNONI 

MSX: il BASIC 


M. BENELFOUL 

Giochi, trucchi e conti: 29 programmi per Vie 20 
29 programmi pronti per gli usi più diversi, scritti 
nel BASIC Commodore. Con cassetta. 164 pagine. 
Cod. 553 D • L. 24.000 / Abbonati L 19.200 

R. BONELLI - D. GIANNI 

Alla scoperta del Vie 20 

Per gli utenti BASIC del Vie, un libro che 

approfondisce anche l'hardware. 300 pagine. 

Cod. 338 D • L. 22.000 /Abbonati L. 17.600 

F. FRANCESCONI - F. PATERLINI 

Voi e il vostro Commodore 64 



Il primo libro sul BASIC MSX: un testo didattico e 
un manuale di riferimento. 176 pagine. 

Cod. 417 D • L. 20.500 / Abbonati L. 16.400 


Guida agevole e divertente alla programmazione 
in BASIC. Con tanti programmi testati. 240 pagine. 
Cod. 347 D • L. 22.000 / Abbonati L. 17.600 


R. BONELLI 

Commodore 64: il BASIC 

Il linguaggio BASIC chiarito ed esemplificato per 

chi impara a programmare. 316 pagine. 

Cod. 348 D • L. 26.000 /Abbonati L. 20.800 

R. BONELLI 
Commodore 64: i file 

Per organizzare e gestire l'archivio dati su 
cassetta o disco, 5 programmi completi. 

178 pagine. 

Cod. 400 B • L. 17.000 / Abbonati L. 13.600 
R. BONELLI 

Commodore 64: la grafica e il suono 

Come disegnare e produrre suoni con il 
computer. Con cassetta. 260 pagine. 

Cod. 409 B • L. 34.000 /Abbonati L. 27.200 

F. MENDE 

Il grande libro dei giochi 

Programmi già pronti in BASIC Commodore e 
idee per crearne di nuovi. Con cassetta. 106 pagine. 
Cod. 408 D • L. 24.000 /Abbonati L. 19.200 

C. KOSNIOWSKI 
Matematica e Commodore 64 

Tutte le funzioni matematiche del C64. 
informazioni e programmi dettagliati. Con 
cassetta. 160 pagine. 

Cod. 570 D • L. 24.000 /Abbonati L. 19.200 
M. GRACE 

Adventure e Commodore 64 

Misteri, magie, giochi di Adventure da Inventare 
sul C64. Con cassetta. 252 pagine. 

Cod. 571 D • L. 35.000 /Abbonati L. 28.000 

D. LAWRENCE 

Il Linguaggio Macchina del Commodore 64 
Tutto per costruire programmi in linguaggio 
macchina e 14 nuovi comandi BASIC. Con 
cassetta. 208 pagine. 

Cod. 572 D • L. 29.000 / Abbonati L. 23.200 



























per professione 


* Anche i non abbonati possono ordinare libri, 
naturalmente senza sconto alcuno. 



Gli abbonati JACKSON hanno diritto, 
fino al 28-2-86, ad uno sconto del 
20% su tutti i volumi. 
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TOTOMAC 

Il Sistema Totomac: la nuova frontiera del 
Totocalcio per Commodore 64 
Programmi semplici per tentare scientificamente 
la fortuna al Totocalcio. Con cassetta. 128 pagine. 
Cod. 576 D • L. 24.000 / Abbonati L. 19.200 




B. ALLAN 

Grafica e Commodore 64 

Anche per non esperti, la grafica in alta 
risoluzione sul C64.152 pagine. 

Cod. 573 D • L. 15.000 / Abbonati L. 12.000 

J. SCRIVEN ■ P. HALL 

Commodore 64 a scuola 

Una guida alla didattica con il C64: per studenti e 

insegnanti. 184 pagine. 

Cod. 574 D • L. 18.000 / Abbonati L. 14.400 
D. LAWRENCE 


Tecniche di programmazione 
con il Commodore 64 

Come programmare bene e con precisione, per 
chiunque possiede e usa un C64.176 pagine. 
Cod. 575 D • L. 16.500 / Abbonati L. 13.200 
U.G. BARZAGHI 

Statistica ad una dimensione 
con il Commodore 64 

La prima guida ai principi fondamentali della 
statistica con calcolatore. 180 pagine. 

Cod. 570 A • L. 17.000 /Abbonati L. 13.600 

R. BONELU - L. PAZZUCCONI - F. RACCHI 
Commodore 16: sempre di più 
Ancora più notizie, informazioni, conoscenze sul 
CI 6 e sul suo BASIC. Con cassetta. 320 pagine. 
Cod. 427 B ■ L. 35.000 /Abbonati L. 28.000 
D. LAWRENCE 

Commodore 16: essenziali routine 

Le grandi capacità di programmazione del 
Commodore 16. Con cassetta. 220 pagine. 

Cod. 422 B • L. 29.000 /Abbonati L. 23.200 

B. LLOYD 

I tuoi amici C16 e Plus 4 fPJ’ 

Dai primi passi alla programmazione avanzata. 
168 pagine. 

Cod. 423 B • L. 16.000 / Abbonati L. 12.800 


P. WILLIAMS 



Ai confini dello Spectrum: applicazioni avanzate 
Per fare esprimere allo Spectrum tutte le sue 
potenzialità. Con cassetta. 188 pagine. 

Cod. 414 B • L. 28.000 /Abbonati L. 22.400 

C. PRIGMORE 


Il BASIC in 30 ore per Spectrum 

Per hobbisti, studenti, principianti, un vero corso 
di programmazione "professionale". 362 pagine. 
Cod. 501 B • L. 40.000 / Abbonati L. 32.000 
R. RIGO 


Spectrum Tool: programmi di utilità grafica 
e gioco 

BASIC e linguaggio macchina combinati per 
usare tutte le potenzialità del calcolatore. 

176 pagine. 

Cod. 554 D • L. 15.000 / Abbonati L. 12.000 

E. DEESON rt-rA 

Lo Spectrum a scuola 

Per studenti e insegnanti una guida alla didattica 
con lo Spectrum. Con cassetta. 282 pagine. 

Cod. 579 D • L. 36.000 /Abbonati L. 28.800 

C. PRIGMORE 

Il BASIC in 30 ore per ZX81 

Un corso di BASIC per impadronirsi davvero 

delle tecniche di programmazione su ZX81. 

288 pagine. 

Cod. 547 B • L. 31.000 /AbbonatiL. 24.800 


R. BONELLI - M. SPADA 
Imparare a programmare con lo ZX Spectrum 
Guida fondamentale per impadronirsi di tecniche 
di programmazione veramente professionali. 

300 pagine. 

Cod. 420 B • L. 28.500 /AbbonatiL. 22.800 


M. LORD 

Alla scoperta del BASIC Spectrum 

Tutto ciò che lo Spectrum può dare in un libro 
semplice ma evoluto. Con cassetta. 256 pagine. 
Cod. 418 D • L. 34.000 /Abbonati L. 27.200 


G. BAISINI ■ G.F. BAGLIONI 

Forth 

Il Forth come linguaggio dei Personal Computer, 
oltre che scientifico e industriale. 160 pagine. 
Cod. 527 B • L. 12.500 / Abbonati L. 10.000 


M. SANGIORGIO 
Il Manuale del BASIC 

Il BASIC di PC IBM, Apple, M20, MZ700, 
Spectrum, ZX81, C64, VIC 20, TI99/4A a 
confronto per una rapida conversione. 486 pagine. 
Cod. 534 A • L. 45.000 / Abbonati L. 36.000 


W. CARRIS 

BASIC Atari 


Per imparare presto e bene a programmare sui 
computer Atari. 192 pagine. 

Cod. 540 H • L. 18.000 /Abbonati L. 14.400 




R. BONELU 

Commodore 16 per te: BASIC 3.5 

Per conoscere e impadronirsi del piccolo ma 
potente CI 6. Con cassetta. 294 pagine. 

Cod. 413 B • L. 35.000 /Abbonati L. 28.000 


VIDEOBASIC 

In 3 volumi, il modo più nuovo e divertente per 
imparare II BASIC, ma non solo il BASIC... con il 
computer come maestro. 640 pagine. 

20 cassette. 

(per VIC 20) 

Cod. VBV001 • L. 200.000 / Abbonati L. 160.000 
(per Commodore) 

Cod. VBC002 ■ L. 200.000 / Abbonati L. 160.000 
(per Spectrum) 

Cod. VBS003 • L. 200.000 /Abbonati L. 160.000 
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Lire 


Software, ultimissima novità del Gruppo Editoriale Jackson, 
è la prima opera completa sulla programmazione del per¬ 
sonal computer in 5 volumi. 

Un'opera diversa e assai più approfondita rispetto a un 
semplice corso di Basic. 

Se è vero, infatti, che il Basic fornisce un'utile chiave 
d’accesso al mondo della programmazione, è altrettanto 
vero che quest'ultima abbraccia un campo assai più vasto 
e complesso rispetto al popolare linguaggio. 

Sistemi Operativi. Linguaggi di Programmazione. Softwa¬ 


re Applicativo: questi i tre cardini su cui si fonda Software, 
che fornisce tutti gli strumenti teorici, ma soprattutto prati¬ 
ci. per acquisire la padronanza completa del personal 
computer. Per risolvere, finalmente, i problemi legati all'u¬ 
so pratico della macchina; per comprenderne le soluzioni 
applicative più idonee. 

Ottimo per il principiante, che intende accedere al mondo 
delllnformatica dalla porta principale, ideale per chi desi¬ 
dera approfondirne la conoscenza e acquisire in tal modo 
una professionalità sempre maggiore. 


APPLICAZIONI 
LINGUAGGI 
SISTEMI OPERATIVI 
E PROGRAMMAZIONE 
DEI PERSONAL COMPUTER 


WORD PROCESSOR» PASCAL»FORTRJ 
DATABASE» COBOL »“C:.. 

FOGLI ELETTRONICI» MS DOS» C/PM • 
COMPUTERGRAFICA» XENIX» UNIX • 
BASIC» LOGO» UCSD 


Software si compone di 52 fascicoli settimanal 
da rilegare in 5 splendidi volumi; 

BASIC I E II «SISTEMI OPERATIVI* 
LINGUAGGI-APPLICAZIONI* 



GRUPPO EOtTORIAU 

JACKSON 


«VISIONE GRANO! OPERE 


















Noi e gli altri 



di Riccardo Paolillo 


U na recente ricerca di mercato effettuata su base nazionale 
offre lo spunto per alcune osservazioni sull’impatto che 
home e personal computer esercitano sulla società. 
L’obiettivo dell’indagine era quello di verificare il grado di 
conoscenza informatica del cittadino medio e la qualità del suo rapporto 
con le macchine. I risultati, a volte prevedibili, ma spesso insospettabili, 
hanno messo in luce uno spaccato molto interessante soprattutto per 
chi, come molti di noi, tende a chiudere entro un microcosmo personale 
il proprio interesse per l’informatica. 

In particolare è emerso come l’italiano sappia, almeno a grandi linee, 
cosa sia un elaboratore elettronico e sia consapevole che la sua 
diffusione porti a dei mutamenti, considerati per lo più positivamente, 
nella vita sociale. 

I giudizi degli intervistati diventano più critici quando si tratta di 
affrontare altri aspetti della questione, come gli svantaggi legati alla 
diffusione dei computer e gli effetti negativi sui livelli occupazionali. 

Per quanto concerne i personal computer emerge una tendenza 
rispecchiata anche dai dati di mercato. Finita l’epoca del calcolatore 
visto come strumento alla moda e in certi casi addirittura status symbol, 
è rimasta la foltissima pattuglia di quelli che il calcolatore lo usano 
veramente. 

Credo che chiunque si occupi seriamente di informatica personale, non 
possa che essere d’accordo sul fatto che la fine del mito “personal a tutti 
i costi e per tutti” costituisca una maturazione di un fenomeno 
comunque crescente. Infatti, campagne pubblicitarie ed informative 
spesso demagogiche, avevano finito per sortire effetti negativi quali una 
forma di antipatia verso il calcolatore da parte di alcuni utenti, 
soprattutto giovani, “costretti” ad usarlo. 

Questo spostamento di tendenza, che noi consideriamo sicuramente 
positivo, è comunque servito a molti commentatori per dichiarare finito 
il personal. 

Sarebbe facile controbattere a simili precipitose conclusioni anche con 
le cifre, ma forse è più interessante osservare che tutti i fenomeni di 
massa, quale ormai è l’utilizzo del personal computer, sono destinati ad 
essere analizzati in modo diverso: valutazioni tecniche serie sono spesso 
accompagnate da altre di “colore” se non scandalistiche. 

Consoliamoci ricordando che alcuni di quelli che ora intonano requiem 
per il personal, fino a poco tempo fa ne erano i più convinti assertori e 
ne cantavano pubblicamente le lodi. Cambia la musica, ma i 
suonatori.... 
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ABBONATI, RISPARMIA, 
UNA PEUGEOT205E1000 


14 riviste di elettronica, 
informatica, personal computer, 14 
modi per vincere subito! Abbonati con 
il modulo di conto corrente e la cedola 
di abbonamento che troverai 
nell’inserto Jackson in questa rivista (e 
che comprende anche i singoli prezzi): 
parteciperai al grande Concorso 
Jackson ’86 e potrai vincere ad 
estrazione una magnifica Peugeot 205 
XR e uno splendido orologio 
Commodore (e in palio ce ne sono ben 
mille!) E in più l’abbonamento ti dà 
diritto fino al 28.2.86 anche al 20% di 
sconto su tutti i libri della Biblioteca 
Jackson: anche per questi troverai 
l’apposita cedola di commissione 
libraria nell’inserto Jackson. 


JACKSON FA LEGGE 
LEGGI JACKSON 


Una selezione di riviste Jackson per il settore informatica e personal computer: 


Informatica Oggi abbonamento 
lire 40.000. L'informatica 
professionale: dall’elaborazione 
dati all'office automation. 


Bit abbonamento lire 43.000. La 
prima rivista europea, la più 
famosa e autorevole in Italia, di 
personal computer, software e 
accessori. 










• In palio, fra tutti gli abbonati, una scattante, 
fiammante, ruggente Peugeot 205 XR 
(954 cc.) nella versione più prestigiosa 

• 1000 esclusivi, modernissimi orologi 
Commodore. 


A TUTTI I PARTECIPANTI 
QUESTA ESCLUSIVA 
AGENDA-DIZIONARIO! 


OROIOGI COMMODORE! 


PC World Magazine abbonamento 
lire 44.000. In collaborazione con 
PC World, la prima e unica rivista 
italiana dedicata ai personal 
computer IBM e compatibili. 


Personal-0 abbonamento 
lire 42.000. L'unica rivista 
indipendente riservata agli utenti 
Olivetti. 


Medicai Computer abbonamento 
lire 45.000. Una novità assoluta 
studiata appositamente per i 
medici: personal computer, affari 
personali e tempo libero. 


Compuscuola abbonamento 
lire 20.000. L'informatica nella 
didattica: problemi e prospettive 
nella prima rivista dedicata al 
computer nel mondo della scuola. 
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Riesce meglio 
con Paintstar 

Paintstar ti offre gli 
strumenti per dise¬ 
gnare con poco lavoro e 
molti risultati. Puoi spo¬ 
stare oggetti e copiarli. Pu¬ 
oi riempire aree del colore 
desiderato, oppure con un reti¬ 
no di tuo disegno. Puoi scrivere, 
usando caratteri dello stile preferito 








Paintstar ti da molto con poco. 

Paintstar è per Apple Ile e Ile. Richiede joystick 












Paintstar colora le tue idee 

Paintstar rende facile creare immagini a 
colori sullo schermo dell’Apple II con il 
semplice uso di un joystick. Paintstar è 
comandato a icone, simili a quelle del Ma¬ 
cintosh, e ti offre una completa scelta di 
comandi grafici, con risposta immediati 
sul video. 

Puoi disegnare a mano 
libera, o usare linee, 
rettangoli, cerchi, 
ellissi. Puoi usare 
una penna od 
un pennello 
della forma 
e del colo¬ 
re desi¬ 
dera¬ 
ti. 


E, naturalmente, puoi anche stampare il 
risultato del tuo lavoro, oltre a registrarlo 
su disco. 


mk software di qualità 

\é.soft 


L'acquisto di software originale significa: garanzia di prodotto, possibilità di sostituzione anche nel caso di versioni aggiornate o di versioni nazionalizzate. 
Esigete sempre software originale. 









Portatili Kaypro 



Provatevi a perderlo... 


L a E. Levi & C., società specia¬ 
lizzata nel campo dei piccoli og¬ 
getti elettronici c delle macchi¬ 
ne per ufficio, ha presentato allo 
SM AU alcuni prodotti simpatici e degni di 
una breve nota nella nostra rubrica. Molto 
particolare e divertente il portachiavi elet¬ 
tronico: grazie ad una sua logica interna 
può rispondere con un segnale acustico 



alla ricerca del padrone che l’ha smarrito. 
Basta battere le mani secondo un codice 
memorizzato c l’oggetto dimenticato in un 
cassetto, nascosto nelle tasche di una giac¬ 
ca, caduto a terra, lasciato sotto un cumulo 
di carte sul tavolo, emette il suo “bip-bip” 
per farsi ritrovare con facilità. Visto che 
siamo sotto Natale, fateci un pensierino: è 
l’ideale per genitori distratti o fratelli di¬ 
sordinati. Altro prodotto degno di men¬ 
zione è la calcolatrice tascabile SB i io con 
doppia alimentazione: solare, a celle foto- 
voltaiche, e tradizionale per sopperire ad 
eventuali carenze di luce senza alzare ban¬ 
diera bianca. 

E. Levi & C. S.p.A. 

Via GiambeUino, ri 
20146 Milano 
Tel. 02-4224977 


L a Corporation californiana ha 
completato la serie dei suoi mi- 
cro sfornando una pattuglia di 
computer portatili operanti se¬ 
condo i due standard pre-MSX: CP/M e 
MS-DOS. Per quanto riguarda le CPU a 8 
bit, l’offerta si articola su tre modelli: il 
New Kaypro 2, con 1 floppy da 392 Kbytc, 
M-BASIC e WordStar compresi nel prez¬ 
zo; il Kaypro 2X con 2 floppy e sei applica¬ 
tivi, ed il modello io con 1 floppy c 1 hard 
disk da io Mbyte, oltre a tutto il software 
di corredo. Caratteristiche comuni alle tre 
macchine sono: CPU Z80A a 4 MHz, 64 
Kbytc di RAM, monitor da 9” antiriflesso 
con 25 righe da 80 colonne, risoluzione 
grafica too per 160 punti, tastiera con 
blocco numerico separato e 18 tasti funzio¬ 
ne programmabili, 2 uscite seriali RS-232C 



e 1 parallela Centronics; sistema operativo 
CP/M 2.2. Dimensioni: 38 per 46 per 20 
cm; peso: 13 kg. Il software compreso nel 
prezzo del Kaypro io e del 2X include: 
The Word Plus, dBase II con programma 
d’apprendimento, InfoStar, MailMerge, 
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PERSONAL NEWS 



CalcStar, C- ed S- BASIC c Term. In am¬ 
biente MS-DOS abbiamo invece il model¬ 
lo i6, trasportabile con eventuale hard 
disk incorporato, ed il Kaypro 2000, un 
portatile con schermo LCD da 25 righe ed 
un lettore di micro dischi da 3,5” incorpo¬ 
rati. 

Kaypro Europe 
P.O. BOX 22016 
6)60 A A Nutb 
The Netberlatids 



La biblioteca si adegua 

A lla biblioteca Comunale Sor- 
mani di Milano, una delle mag¬ 
giori del capoluogo lombardo, 
è in funzione da qualche mese 
un centro audio e video per i giovani. 
Realizzato da Philips, grazie ad un’iniziati¬ 
va congiunta con l’Assessorato alla cultura 
del comune di Milano, il centro intende 
promuovere fra i giovani il diffondersi di 
una nuova cultura musicale c dell’immagi¬ 
ne, fortemente caratterizzata in senso tec¬ 
nologico, grazie all’uso di aggiornate ap¬ 
parecchiature. Tra queste il compact disc, 
registratori, videoregistratori ed il video¬ 




disco: un’attenzione tutta particolare è sta¬ 
ta poi dedicata ai computer, con l’installa¬ 
zione di alcuni home MSX e dei personal 
Philips. Il tutto, naturalmente, a disposi¬ 
zione del pubblico negli orari di apertura 
della biblioteca. 

SPCS.r.l. 

Corso Sempione, 77 
20149 Milano 
Tel. 02-j494447 



Accessori Mastertronic 


L a Mastertronic, da tempo attiva 
nel settore dei videogiochi per 
le macchine più diffuse, propo¬ 
ne ora anche una serie di acces¬ 
sori per computer. I.a gamma di prodotti è 
ampia e copre una serie di necessità degli 
utenti “casalinghi” e professionali. Ma- 
stershot è un joystick con telecomando, 
che consente di giocare fino a cinque metri 
di distanza dal micro; dotato di un disposi¬ 
tivo di alta precisione, è disponibile in tre 
versioni (Mastershot 1, 2 e 3) al prezzo di 
lire 15.500, 20.000 e 39.000 IVA inclusa. Il 
modello 3 presenta un meccanismo di au¬ 
tofuoco a ripetizione molto elevata. Il na¬ 
stro pulirinnova Mastertronic costa 3.500 
lire, è realizzato in fibre poliestere non 
abrasive e permette di rimuovere tutte le 
impurità depositate sulle testine del regi¬ 
stratore durante l’uso. Master Disk è inve¬ 
ce la proposta per chi usa i floppy: in 
confezioni da 10, costano 5.900 lire l’uno. 
Per i più piccini è stata inaugurata la gam¬ 
ma di giochi didattici Mistertronic: una 
serie di game studiati per una fascia di 
utenti dai 6 agli 11 anni, che si propongo¬ 
no di aiutare i ragazzi ad imparare l’uso del 
computer divertendosi. I primi due titoli 
sono: “Make Music \vith Mistertronic” 
(per creare semplici brani musicali sul 


Commodore 64) e “Type Rope” (una sfida 
per liberare la tastiera, accoppiando lettere 
e numeri). 

Carla Caccia rp 
Via Podppra, 7 
20100 Milano 
Tel. 02-44;;8i9 



Commodore 
lancia i suoi Centri 

F unzionano ormai da qualche me¬ 
se i Commodore Computer Cen¬ 
ter, luoghi di incontro con la 
cultura informatica, distribuiti 
un po’ in tutt’Italia. Anche questa mossa fa 
parte della strategia della filiale italiana 
della Commodore, che ha chiuso il suo 
anno fiscale fatturando qualcosa come 256 
miliardi di lire, contro i 137 del precedente 
esercizio. In attesa di introdurre l’esaltante 
Amiga anche nel nostro Paese, la Commo¬ 
dore cerca di far fruttare al massimo la sua 
privilegiata posizione nel mercato, pun¬ 
tando al settore dei computer professiona¬ 
li. I due compatibili PC10 e PC20, sono 
stati affiancati dal camaleontico C 128, con 
tre “anime” e dal C 900. Tornando ai Cen¬ 
tri, diciamo che in essi l’offerta prevalente 
riguarda i corsi: ce n’è per tutti, principian¬ 
ti, praticoni ed esperti. Si va infatti dall’in¬ 
troduzione al BASIC (in due corsi), alla 
grafica (due livelli), dalla musica alla scrit¬ 
tura elettronica, dalla gestione archivi al 
Logo. Entro fine anno si prevede che sa¬ 
ranno una cinquantina su tutto il territorio 
nazionale: iniziativa interessante e per il 
contenuto e per l’occasione di creare nuovi 
posti di lavoro (circa 300) per giovani. Da 
notare la presenza “volante” di Centri an¬ 
che presso alcuni villaggi vacanze Valtur: 
per chi va in montagna a Mezzana (0463- 
76170) o a Gressan (0165-521041) c’è la 
possibilità di unire il dilettevole al ...dilet¬ 
tevole! 

Opinione 
Via Mora, 22 
2012; Milano 
Tel. 02-8974081 
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Software per il QL 

L a Rebit Computer, divisione 
della GBC Italiana, ha introdot¬ 
to una serie di prodotti comple¬ 
mentari alla macchina basata sul 
68000. Oltre ad una nutrita serie di manua¬ 
li c di interfacce, sono presenti diversi 
compilatori ed interpreti. Assieme al lin- 



/ 


guaggio Ci ed all’Assembler, sono disponi¬ 
bili il I.isp, il Pascal ed il Forth, mentre 
ricordiamo che la GST ha sviluppato un 
sistema operativo alternativo al QDOS, il 
68 K/OS, residente su una scheda da inse¬ 
rire nello slot di espansione. Per i|uanto 
riguarda i giochi, vale la pena di accennare 
a QL Chess della PSION, programma re¬ 
duce dalla vittoria al campionato mondiale 
della specialità per microcomputer. E rea¬ 
lizzato con video in alta risoluzione, l’ani¬ 
mazione grafica è a tre dimensioni e preve¬ 
de 28 livelli di gioco con circa 4.000 mosse 
di apertura, con varie funzioni di appren¬ 
dimento e di aiuto in caso di errore. Sul 
versante hardware segnaliamo una stam¬ 
pante, la Seikosha SP 800 IQL, immediata¬ 




mente collegabile alla macchina, due letto¬ 
ri di dischi da 3,5” e un cavo di interfaccia 
per la porta seriale RS-232. 


Rubi! Computer 
Viale Matteotti, 66 
20092 Cinisel/o Balsamo ( MI) 
Tel. 02-61X1Ì01 



Senza luce 


L a Triumph-Adler, produttrice 
di macchine per scrivere, e per 
ufficio, mini e micro sistemi, 
amplia la sua gamma di calcola¬ 
trici da tavolo e tascabili, presentando il 
modello L 1210 Solar, con display a 12 
cifre. È una macchina a celle solari che 
funziona normalmente senza corrente; se 
però l’intensità della luce scende sotto 60 
Lux, la L i2io Solar commuta automatica- 
mente sull’alimentazione di riserva, costi¬ 
tuita da una batteria a stilo. Le funzioni 
aggiuntive previste sono: memoria a quat¬ 
tro tasti, tasto percentuale e calcolo del 
margine di utile, cambio registri, radice- 
quadrata, cambio del segno, shift a destra, 
arrotondamento per eccesso o per difetto, 
azzeramento singolo o totale. 


Triumph-Adler Italia S.p.A. 
Viale Moneti, 26) 

20126 Milano 
Tel. 02-2f2jt 




Novità Toshiba 


D alla Casa giapponese un an¬ 
nuncio interessante, anche se 
non porta con sé la nuova sigla 
MSX-2, già appannaggio di 
macchine presentate da altri produttori. Si 
tratta del Toshiba HX-22, modello com¬ 
pletamente riveduto e ampliato rispetto al 
precedente HX-10. Le novità riguardano 
la tastiera, ridisegnata, c la presenza di altra 
elettronica. Oltre alle prese per il televiso¬ 
re di casa ed un monitor videocomposito, 



l’HX-22 dispone di un’uscita video RGB 
con connettore di tipo Scart, ideale per 
ottenere una migliore risoluzione cromati¬ 
ca. La ROM del nuovo Toshiba si estende 
per 64 Kbytc e comprende oltre al BASIC 
MSX un elaboratore di testi. All’accensio¬ 
ne è possibile scegliere quale “ambiente” si 
intende utilizzare. È presente anche un’in¬ 
terfaccia seriale RS-2 32 ed il BASIC è stato 
opportunamente esteso per gestirla diret¬ 
tamente, senza richiedere nulla alla memo¬ 
ria utente che resta di 28 Kbytc c rotti. Per 
tutti i possessori di elaboratori MSX 
sprovvisti di quest’interfaccia, la Toshiba 
ha approntato una cartuccia che la com¬ 
prende insieme alle estensioni del BASIC 
su ROM incorporata. Come ultima novità 
di rilievo, segnaliamo la presenza di un 
secondo slot di espansione, piazzato sul 
retro della macchina: è l’ideale per l’inseri¬ 
mento delle cartucce più ingombranti. Un 
altro annuncio Toshiba in ambiente MSX, 
riguarda la stampante a trasferimento ter¬ 
mico HXP-560, economica c silenziosa, 
capace di una velocità massima di 45 carat¬ 
teri al secondo. 

Melchioni S.p.A. 

Via P. Colletta, 

20tMilano 
Tel. 02-47941 
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Music Editor 

Generiamo programmi musicali 
sfruttando le ottime caratteristiche 

sonore del C 64 


di Tommaso Palermo 


L a caratteristica originale del 
Music Editor che vi presentia¬ 
mo consiste nell'essere un ge¬ 
neratore di programmi BASIC 
musicali. Cioè: un brano musicale può 
essere, attraverso questo programma, 
scritto, corretto, modificato e registrato 
sotto forma di file su cui poter continua¬ 
re le operazioni di lettura e scrittura; ma 
può anche, al termine del lavoro di crea¬ 
zione, essere trasformato in un pro¬ 
gramma il cui unico compito consiste 
nel suonare il brano in questione, ren¬ 
dendone cosi più facile e rapida l'archi¬ 
viazione e l'ascolto. 

Il lavoro di scrittura e correzione non 
potrà però essere effettuato sul brano 
cosi trasformato, a meno che non se ne 
sia conservata la registrazione anche in 
forma di file. È previsto l'uso a scelta del 
registratore o del disk drive. Tutte le rou¬ 
tine del programma sono architettate in 
BASIC, cosi anche la routine di trasfor¬ 
mazione che opera direttamente sulla 
struttura interna del programma BASIC, 
cambiando alcuni Token e scrivendo 
con la Poke all'interno dello stesso. La 
scelta del BASIC non crea eccessivi pro¬ 
blemi di velocità, salvo per il fatto che 
manca una espressa routine per l'inse¬ 
rimento di note aH’interno del brano 
(questa funzione, in caso di estrema ne¬ 


cessità, si può comunque simulare con 
l'uso accorto della opzione Ricopio); 
per quel che riguarda l’esecuzione, ogni 
nota richiede almeno 1/20 di secondo: 
se ciò non consente passaggi partico¬ 
larmente acrobatici, è comunque suffi¬ 
ciente a riprodurre quasi ogni tipo di 
brano musicale. I 38.911 byte sono 
sfruttati al massimo: si può lavorare su 
composizioni lunghe fino a 2.968 note 
per ognuna delle tre voci. 

Il programma 

Le linee da 1 a 46 (intestazione, asse¬ 


gnazione a variabili dei registri del SID, 
routine di esecuzione e definizione delle 
voci) sono la base del futuro program¬ 
ma musicale, è pertanto importantissi¬ 
mo trascriverle esattamente come si 
presentano, pena il mancato funziona¬ 
mento della routine di trasformazione, 
comprendendo quindi la cornicetta di 
asterischi delle Rem iniziali (che poi, co¬ 
me nell'esempio del listato 2, potrà esse¬ 
re usata per inserire il titolo del brano). 
Come punto di riferimento per la corret¬ 
ta trascrizione della parte iniziale del 
programma, si può usare il Return della 
linea 46, il cui Token (di valore 142) si 


TABELLA DI CONVERSIONE 


(HOME).HOME 

{CLR }.PULIZIA SCHERMO 

(CUR.SU).CURSORE IN ALTO 

(CUR.GIU).CURSORE IN BASSO 

(CUR.DES).CURSORE A DESTRA 

(CUR.SIN).CURSORE A SINISTRA 

(SPC).SPAZIO 

{ RVS ON).REVERSE ON 

(RVS OFF).REVERSE OFF 

{INST }.INSERT 

(FI ).TASTO FI 

{ F2 ).TASTO F2 

{ F3 ).TASTO F3 

(F4).TASTO FA 

{ F5 ).TASTO F5 

{ F6 }.TASTO F6 

( F7 ).TASTO F7 

{ F8 }.TASTO F8 

(BLACK).COL. NERO (CTRL-H) 

(WHITE).COL. BIANCO (CTRL + 2) 

(RED).COL. ROSSO (CTRL + 3) 


(CYAN).COL. CIANO (CTRL + 4) 

(PURPLE).COL. PORPORA (CTRL + 5) 

(GREEN).COL. VERDE (CTRL + 6) 

(BLUE).COL. BLU (CTRL + 7) 

(YELLOW).COL. GIALLO (CTRL + 8) 

(ORANGE).COL. ARANCIO (CBM+1) 

(BROWN).COL. MARRONE (CBM+2) 

(LT.RED).COL. ROSSO CHIARO (CBM + 3) 

(GRAY1).COL. GRIGIO 1 (CBM + 4) 

(GRAY2).COL. GRIGIO 2 (CBM + 5) 

(LT.GREEN).COL. VERDE CHIARO (CBM+6) 

(LT.BLUE).COL. BLU CHIARO (CBM + 7) 

{ GR A Y 3 ).COL. GRIGIO 3 (CBM + 8) 


I CARATTERI GRAFICI, OTTENUTI CON LA 
PRESSIONE DEI TASTI 'SHIFT' E 'CBM', 
SONO CODIFICATI IN MODO DA INDICARE IL 
TASTO DA PREMERE ASSIEME A 'SHIFT' 0 
'CBM'. ES. IL CUORICINO E' CODIFICATO 
CON (SH S) . 

UN NUMERO DENTRO LE PARENTESI INDICA 
LE VOLTE CHE IL TASTO VA PREMUTO. 
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Music Editor 


COMMODORE 64 


Listato 1 - Il programma principale. 


! REM .... 

2 REM * MUSIC EDITOR « 

I REM * DI * 

4 REM * TOMMASO PALERMO » 

5 REM * * 

6 REM a»»»»»»»»*»»»*»»*»******»**** 

9 GOSUBIOOOO 

10 L1-54272:H1»L1+1 :W1-L1+4:A1-L1+5:S1-L 
1+6:D1-L1+3;C1-L1+2:F-2.0 

II L2-54279 : H2-L2 + 1 :W2-L2+4:A2-L2+5:S2-L 
2+6:D2-L2+3:C2-L2+2 

12 L3-54286:H3-L3 + 1=W3-L3 + 4:A3-L3+5:S3-L 
3+6:D3-L3+3:C3“L3 + 2:GOTO50 

13 GOSUB41 

15 POKE54296.15 

16 FORT- A TO B STEP8 

17 ON(PEEK(T + 7)AHD7) GOTO 2 5,22 I 2 1 i,20,19»2 
1,23 

1 8 G0T026 

19 POKEW1,0 

20 P0KEW3.0:G0T026 

21 POKEW3.0 

22 POKEW2,0:G0T026 

23 POKEW3,0 

24 P0KEW2.0 

25 POKEW1,0 

26 P0KEH1 ,PEEK(T+1 ):P0KEL1 ,PEEK(T+2):POK 
EH2,PEEK(T+3) 

27 POKEL2,PEEK(T+4):POKEH3,PEEK(T+5):POK 
EL3.PEEK(T+6) 

28 POKEW1,WJ(0):P0KEW2,WJ(1):POKEW3,W$(2 
) :TI$-"000000" 

30 GETA $ : I FA " "THENT-B:G0T040 

32 IFTI<(PEEK(T)*F-3)THEN30 

40 NEXT:POKE54296,0:POKEW1,0:POKEW2,O:PO 
KEW3,0 : RETURN 

41 POKEA1,AD$(0):P0KEA2,ADS(1):P0KEA3,AD 

%{ 2 ) 

42 POKES1,SR<(0):POKES2,SRJ(1):POKES3.SR 
>(2) 

43 P0KED1,DC*(0)/256:P0KEC1,(DC % (0)-(INT 
(DC*(0)/256))« 256) 

4 4 POKED2,DC)( 1 )/256 :POKEC2,(DCt(1)-(INT 
(DCJ( 1 )/256))»256) 

45 POKED3,DC*(2)/256:POKEC3,(DC*(2)-(INT 
(DCj(2)/256) )»256 ) 

46 RETURN 

48 ATTENZIONE : LE RIGHE DA 1 A 46 NON POS 
SONO ESSERE MODIFICATE!N.B:PEEK 2834- 
1 42 

50 DATA"{SH L}{SH A}",9,"{SH S}(SH I}",1 
1 , " {SH D ) { SH 0 } " , , " ( SH RHSH E)",2,"{ 
SH M}(SH I} " , 4 , "{SH F } {SH A}",5,"{SH 
S}(SH 0} (SH L}" ,7 

51 DIMN$(ó) , N %(6), A > ( 2 ),B>(2 ),A$(2), AD< ( 
2) , SR $(2) ,Wt(2),DC %(2) , DO$(6) 

52 LA — 7217 :C%—45:M—1 .0594631 :Bj(0)-12:Bj 


(1 )-19:Bj(2)-26:Z$-CHR$(0) 

55 FORI-0T06:READN$(I),NJ(I ) :NEXT 

56 FORI-OT07:A>-I*12:GOSUB1110:DO(I)-FF: 
NEXT 

57 DEFFNA(X)-(X-14336)/8 :DEFFNB(X)-X*8+1 
4336 

60 LLt-0:IN-1 4344 :PRINTCHR$( 1 4) 

75 FORT-0TO2:ADJ(T)-12 :SR*(T)-12 :W$(T)-3 
3:DCJ(T)-0:NEXT:G0SUB41 
80 PRINT"(CLR}{4 CUR.GIU) (RVS 0N}{SH A) 
(RVS OFF} (SH I INIZIO LAVORO":PRINT"{ 
2 CUR.GIU} (RVS ON}{SH B}(RVS OFF} (S 
H C}ARICAMENTO MUSICA": 

85 PRINT"(2 CUR.GIU} (RVS ON}(SH C} {RVS 
OFF) (SH DEFINIZIONE VOCI" 

87 PRINT"(2 CUR.GIU} (RVS ON}(SH D}(RVS 
OFF} (SH S)UONA MUSICA (3 CUR.GIU}":G 
OSUB5000 

90 IFA$-"A"THENPRINT"(CLR)(8 CUR.GIU}":G 
0T01300 

91 IFA$-"B"THENPRINT"(CLR }":G0T02200 

92 IFA$-"D"THENB-FNB(LL?): A-1 4 34 4:G0SUB1 
5 

95 IFA$-"C"THENPRINT"(CLR } (7 CUR.GIU}":G 
OSUB2490 
99 GOT080 

150 A-IN:B-IN:G0T015 

190 ZZJ-FNA(IN):IFZZJ>2968THENPRINT:PRIN 
T"MEM0RIA ESAURITA!":G0T01300 
200 PRINTZZJ:POKEIN+7,0 

210 PRINT"(CUR.SU)"TAB(8)"(CBM +}(3 SPC} 
(4 CUR .SIN}"! :T$-"" 

220 G0SUB5000 

230 IFASC(A$)-20THENPRINT:G0T0210 
240 IFASC (A$)>47 AND ASC (A$X58THENPRINTA$ 
"(CBM +}(CUR.SIN}"::T$-T$+A$:G0T0265 
250 IF(ASC(A$)-1 30RASC(A$)-32)ANDT$O""T 
HEN270 

252 IF(ASC(A$)-130RASC(A$)-32)ANDT$-""TH 
ENT$-STR$(PEEK(IN-8) ) :PRINT"(CUR.SIN 
}"T$ :G0TO280 

255 IFA$-"(F1 }"ANDT$-""THENT$-"48":PRINT 
T$:G0T0280 

257 IFA$-"(F3)"ANDT$-""THENT$»"24":PRINT 
T$:GOTO280 

260 IFA$-"(F 5}"ANDT$-""THENT$-"12":PRINT 
T$:GOT0280 

262 IFA$-"lF7}"ANDT$-""THENT$»"6":PRINTT 
$ :G0T0280 

264 GOSUB750:GOTO220 

265 IFLEN(T$ X3THEN220 
270 PRINTCHR$(32) 

2 80 TJ-VAL(T$) :IFTJ>255THENGOSUB750: GOTO 
210 

300 1-0 : POKEIN + 7 , PEEK ( IN + 7 )AND254 : G0SUB5 
00 :IFFLTHENPOKEIN + 7 , PEEK(IN + 7)OR 1 
310 IFASC(A$)-20THENPRINT" ":G0T0210 
320 IFA$-" (CLR}"THENPRINT:G0T0489 
350 1-1 : POKEIN + 7 , PEEK ( IN + 7 ) AND253 : G0SUB5 
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Seguito listato 1. 

00 :IFFLTHENPOKEIN+7,PEEK(IN+7)OR2 
360 IFASC(A$)-20THENPRINT" ":GOT0300 
370 IFA$«"{CLR}"THENPRINT: 00704 89 
400 I » 2 :POK EIN + 7,PEEK(IN+7 ) AND251 :G0SUB5 
00:IFFLTHENPOKEIN+7,PEEK(IN+7)OR4 
410 IFASC(A$)*20THENPRINT" ":G0T0350 
420 IFA$-"(CLR)"THENPRINT:GOTO489 
450 PRINT"{CUR.SU)"TAB(33)"7{CUR.SIN)";: 

G0SUB1000 
460 GOSUB5005 

4 65 IFA$-"S"THENGOSUB150 : GOTO 460 

470 IF A $ »" "ORASC(A$)-13THENIN-IN+8:PRIN 
T" ": GOT0190 

471 IFASC(A$)-20THENPRINT" ":GOT0400 
480 IFA$-»«"0RA$-"@"THENP0KEIN+7,(PEEK(I 

N + 7)0 R16 ) :PRINT"*"; :G0T0460 
482 IF A $ - "(F8)"THENPRINT" ":GOT01300 
485 IFA$-"{F 6)"THENPRINT" ":G0SUB2000:GO 
SUB840:GOT01300 

488 IFA$-"{CLR}"THENPRINT 

489 IFA$-»{CLR)"THENPRINT"{CUR.SU}{37 SP 
Cl":PRINT"{CUR.SU)"; : GOT0190 

490 GOSUB750:G0T0460 
500 FL-1 

510 PRINT"{CUR.SU}"TAB(BX(I))"{CBM + ) {4 
SPC){5 CUR.SIN)"; 

520 GOSUB5000 

5 30 IFASC(A$)>64ANDASC(A$ X72THEN600 
540 IFA$>"t"THENFL=0:PRINT"{CUR.GlU){R 

VS ON)"; :G0T0510 

550 IFASC(A$)-13THENFL-0:PRINT"{RVS ON}" 
A $(I):RETURN 

555 IFA$-" "THENPRINTA$(I):RETURN 
560 IF(ASC(A$)-200RA$-"{CLR}")THENFL-0:R 
ETURN 

570 IFA$-"{CUR.GIU)"ORA$-"{CUR.DES)"ORA$ 
-"-"THENA$(I)-" = ":AJ(I)-255:PRINTA 
$ ( I ) : RETURN 
590 G0SUB750:GOT0520 

600 R$=N$(ASC(A$)-65):PRINTR$"{CBM + }{CU 
R.SIN)";:RX-NX(ASC(A$)-65) 

610 G0SUB5000 

620 IFA$-"+"THENRX=RX+1 : PRINT" #{CBM ♦ ) { C 
UR .SIN)"; :R$-R$+"0":G0T06l0 
630 IFA$»"-"THENRX-RX"1:PRINT"B{CBM + ){C 
UR .SIN ) "; :R$-R$+"B":G0T0610 

6 40 IFASC(A$)>47ANDASC{A$)<55THENPRINTA $ 

:AX(I)-RX+12*VAL(A$):A$(I)-R$+A$:RET 

URN 

650 IFASC(A$)-20THENPRINT:GOT0500 
660 GOSUB750:GOT06lO 

750 POKE54 2 96,8:P0KEA1 ,31 :POKES1 ,96 :POKE 
W1 .33 = P0KEH1 ,180 

760 F0RT-0T090:NEXT:P0KEW1 ,0 :P0KE54296,0 
:POKEA 1 , AD)(0 ) :POKES1 , SRX(0): RETURN 
800 G0SUB850:F-F+.1:G0T0830 


815 GOSUB850:F-F-.1 : IFF<1THENF-1 
830 ZZX-3600/ {24 * F ) :PRINT"{HOME} ( RVS ON) 
1/4 (24) =* "STR$(ZZX ) " NOTE AL MINU 
TO{2 SPC)" 

835 P0KE214,XX:POKE211 ,YX:SYS58732 : RETUR 
N 

840 P0KE214 , XXX : P0KE211 ,YYX :SYS58732 :RET 
URN 

850 XX-PEEK(214):YX-PEEK(211):RETURN 
900 XX$-PEEK(214):YYX-PEEK(211): RETURN 
950 B-IN:A-IN-96:IFA<14344THENA-14344 
960 GOT015 

1000 IFZZX>LLXTHENLLX-ZZX 
1010 P0KEIN,TX:P0KEIN + 7■(PEEK(IN♦7)AND 1 5 
) 

1020 AX-AX(O):G0SUB1100 :POKEIN♦1 ,HIX : POK 
EIN + 2 ,LOX 

1030 AX■AX(1 ) : GOSUB1100 : POKEIN + 3 , HIX :POK 
EIN+4.L0X 

1040 AX*AX(2):GOSUB1100 : POKEIN+ 5,HI X : POK 
EIN+6,L0X:RETURN 

1100 IFAX-255THENHIX-0:L0X-0:RETURN 1 
1110 FF-(LA*M+(AX-CX)):HIX=FF/256:L0X- 
FF-(256*HIX):RETURN 
1300 G0SUB900 

1302 PRINT"(HOME){40 CBM 0}"; 

1305 PRINT"{RVS ON){SH A){RVSOFF) SCRIV 
I - {RVS ON}{SH B){RVS OFF) RICOPIA 
- { RVS ON ) {SH C ) {RVS OFF) LEGGI - 
{RVS ON){SH D){RVS OFF) MENU'"; 

1308 PRINT"{40 CBM U}" 

1310 G0SUB5000 

1315 IFA$>"A"THENG0SUB1 600 :GOSUB1 4 00 : IFF 
LTHENG0SUB840 : PRINT : GOT0190 
1 320 IFA$-"B"THENG0SUB1 700 : IF FLTH ENGOSUB 
840:PRINT:G0T01300 

1 322 IFA$-"C"THENG0SUB1800 :IFFLTHEN1300 

1324 IFA$-"D"THEN80 

1325 IFA$-"A"0RA$>"B"0RA$-"C"THEN1302 
1 340 GOT01310 

1 400 FL-0:PRINT" {RVS ON )SCRIVO{RVS OFF) 
"; :ZZX = LLX + 1 :GOSUB1500 
1410 IFZZX-OTHENRETURN 
1 420 IN-FNB(ZZX) :FL-1 :RETURN 
1500 PRINT"DALLA NOTA N. ("ZZI" ) "; : INPUT 
ZZX: RETURN 

1600 PRINT"{HOME)(CUR.GIU)";:PRINT"{40 S 
PC)" : PRINT"{HOME){CUR.GIU)";:RETURN 
1700 FL-0 

1710 G0SUB1 600 : PRINT" {RVS ON ) RICOPIO{RV 
S OFF) " ; : ZZX-1 :G0SUB1 500 : IFZZX<1TH 
ENRETURN 

1715 PPX-ZZX:A-FNB(ZZX) 

1720 IFPPX>LLXTHEN1780 

1725 G0SUB1600:PRINT"ALLA NOTA N.O'LLX") 
"; :ZZX-LLX:INPUTZZX:AA X-ZZX:B-FNB ( Z 
ZX ) +7 

1730 IFAAX>LLX0RAAX<PPXTHEN1780 

1735 G0SUB1600:PRINT"PARTENDO ";:ZZX-LLX 
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Music Editor 


COMMODORE 64 


Seguito listato 1. 


♦1 :GOSUB1500:IN«FNB(ZZJ) 

1740 IFZZJ<10R(ZZ*<AA*ANDZZ?>PP*)THEN178 
0 

1741 IF(ZZ>+AA*-PP*)>2968THEN1780 
1 745 GOSUB1600 

1750 PRINT"RICOPIO DA"P P $" A"AA %" , PARTEN 
DO DA"ZZJ 

1 755 PRINT"{SH C }ONFERMI?"; :GOSUB5000: IF 
A$<>"S"THENPRINT" NO":A$-"B": RETURN 
1 760 PRINT" SI ":FL» 1 

1765 FORT-ATOB: POKEIN , PEEK(T ) : IN-IN + 1 : NE 
XT:ZZ*-FNA(IN-8): IFZZ$>LLJTHENLL$-Z 

Z% 

1770 RETURN 

1 780 G0SUB1600 :PRINT" {SH E}RRORE !":FORL 
•OT0300:NEXT:RETURN 

1800 FL-0 : G0SUB1 600 :PRINT" {RVS ON } LEGGO 
(RVS OFF) :ZZ%-1 :GOSUB1500 : IFZZ$- 
OTHENRETURN 

1802 FL-1:IN-FNB(ZZ%):GOSUB840:PRINT 
1805 ZZJ—FNA(IN):PRINTZZt 

1808 IFZZ*>LLÌTHENPRINT"{CUR.SU}"TAB(8)" 
(SH B ) RANO FINITO":1N-IN-8:RETURN 
1810 PRINT"(CUR .SU)"TAB(7)PEEK(IN) 

1815 FF-PEEK(IN+1 ) * 256 + PEEK(IN + 2):GOSUB1 
900:PRINT"(CUR.SU)"TAB(12); 

1816 G$-"(RVS ON)":IF(PEEK(IN+7)AND1)THE 
NG$ = "(RVS OFF)" 

1817 N$-G$+N$:PRINTNt 

1820 FF-PEEK(IN+3)*256+PEEK(IN+4):G0SUB1 

900:PRINT"(CUR.SU)"TAB(19); 

1821 G$ - "(RVS ON)":IF(PEEK(IN+7)AND2)THE 
NG $ = "(RVS OFF)" 

1822 N$»G$+N$:PRINTN$ 

1825 FF-PEEK(IN+5)*256+PEEK(IN+6):G0SUB1 
900:PRINT"(CUR .SU)"TAB(26); 

1 826 G$-"(RVS ON)":IF(PEEK(IN + 7)AND4)THE 
NG$-"(RVS OFF)" 

1827 N$-G$+N$:PRINTN$ 

1 850 IF(PEEK(IN + 7 )AND16)THENPR1NT"(CUR.S 
U ) "TAB(33 ) "*" 

1860 GOSUB5000 

1 870 IFA$=*"S"THENGOSUB150 : GOTO 1 860 
1880 IFA$-"(F8)"THENRETURN 
1 885 IFA$-"(F 6)"THENGOSUB2000:G0SUB84 0:R 
ETURN 

1890 IFA $ = " "0RASC(A$)-13THENIN-IN + 8 :GOT 
01805 

1899 GOSUB750:GOT01860 
1 900 IFFF = 0THENN$>" - " : RETURN 
1910 F0RI“1T07:IFFF<(D0(I)“1)THENX-I-1tX 
» DO(X): 1-8 
1920 NEXT 
1950 NN-FF/Y 

I 960 IFNN<1 .04THENN$-"(SH D} (SH 0}":G0T0 
1 975 
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librerie. 
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La nuova Stampante 
Professionale IBM 4201 è stata 
studiata proprio per il Personal 
Computer IBM: è così piccola da 
stare su qualsiasi scrivania e da 
andar bene per qualunque tasca, e ti 
consentirà di sfruttare al massimo le 
grandi potenzialità della parola 
scritta. 

b infatti una stampante versatile, 
ad alta velocità e dalle caratteristiche 
tecniche molto avanzate. Ecco cosa 
può fare: 

i 

Funzioni differenziate: è in 
grado di stampare note e rapporti 
per segretarie, memo per dirigenti, 


schemi per il direttore delle vendite, 
relazioni di lavoro per tecnici e 
scienziati. E se vuoi usare le sue 
funzioni grafiche, riprodurrà 
perfettamente i tuoi disegni. 

Velocità differenziata: la nuova 
Stampante Professionale IBM può 
facilmente cambiare velocità 
secondo le tue esigenze. 40 caratteri 
al secondo (cps) per documenti di 
alta qualità, 100 caratteri per testi e 
200 per normali lavori di stampa. 

Stampa differenziata: tre “modi 
testo” che producono fino a 18 
combinazioni di stili di stampa. 

Puoi scegliere fra un’ampia gamma 


f 








Da oggi c’è una nuova 
stampante per il tuo 
Personal Computer IBM. 





di caratteri e di simboli, che ti 
permettono di lavorare in molte 
delle lingue europee, utilizzando 
anche particolari simboli tecnici. 
Puoi perfino creare un alfabeto fatto 
da te, con tutti i simboli che ti 
servono per il tuo lavoro. 

Alimentazione differenziata 
per la carta: la Stampante 
Professionale utilizza sia moduli 
continui che fogli singoli. 

Ma, diversamente da altre stampanti, 
non devi cambiare il cassetto per la 
carta tutte le volte che cambi 
formato. 

Infatti, c’è una 
fessura nella 


parte anteriore, attraverso la quale 
puoi introdurre carta da lettere e 
buste, per avere stampe immediate. 

E infine il prezzo. 

Il costo di acquisto e di esercizio di 
questa stampante IBM è 
proporzionale alle sue dimensioni: 
molto ridotto. 

Se vuoi avere più informazioni, vai 
dal Concessionario IBM Personal 
Computer (gli indirizzi sono sulle 
Pagine Gialle). E un vero esperto. 

Per consulenza o acquisti, 
puoi anche rivolgerti al Negozio 

IBM Centramilano o al tuo S ———_ —— — 

Rappresentante IBM. I~ — 7 — 
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deve trovare nella locazione 3070; se 
dunque facendo una Peek a 3070 (co¬ 
me suggerito dalla linea 48 di commen¬ 
to) si dovesse trovare un valore diverso 
da 142, sarebbe un segnale di errore 
nella trascrizione delle linee precedenti. 

Dalla linea 50 alla 99 si trova la defini¬ 
zione delle variabili dell'editor e la pre¬ 
sentazione del menu. Da notare, nella 
linea 52, la variabile “la", su cui viene 
accordata l'intera scala musicale, e la 
variabile “c%", che indica la posizione 
relativa del La3 rispetto al DoO. Cam¬ 
biando questi due valori si può "intona¬ 
re" diversamente l'intero programma. Il 


valore di "m” (1,0594631, cioè la radice 
dodici di due) esprime il rapporto fisso 
dell'intervallo tra un semitono e l'altro 
nella scala musicale. L'input dei dati in 
fase di scrittura è gestito dalle linee da 
190 a 660, ma la trascrizione vera e 
propria delle note in memoria viene ef¬ 
fettuata dalla routine che parte dalla 
riga 1000, e, in particolare dalla formula 
che si trova a 1110, che utilizza appunto 
le suddette variabili. 

Tra la linea 750 e la 960 trovano posto 
alcune subroutine di utilità, tra cui l’uni¬ 
ca Sys del programma che, indirizzata 
alla routine Plotr del sistema operativo, 


permette di simulare un'istruzione Print 
At, che viene utilizzata unicamente per 
memorizzare la posizione del cursore 
quando questo viene spostato nelle ri¬ 
ghe alte dello schermo, adoperate co¬ 
me “area messaggi”. 

A 1300 il programma accede quando 
viene richiamato il secondo menu, cioè 
le opzioni di lavoro. La prima, Scrivo, fa 
passare dalla subroutine 1400 (dove 
viene scelta la nota da cui scrivere) e 
quindi dà il controllo all'area di pro¬ 
gramma da 190 in poi. La seconda, Ri¬ 
copio, è collocata tra le linee 1700 e 
1780. La terza. Leggo, ha inizio da 1800 


Seguilo listato 1. 




1 961 

IFNN<1 .10THENN $•"(SH 

D) (SH 

O}#" 

: GOT 

1 962 

01975 

IFN N <1 . 16THENN$-"(SH 

R) (SH 

E) " : 

GOTO 

1963 

1975 

IFNNC1 . 22THENN*»"{SH 

R ) {SH 

E}#» 

: GOT 

1 964 

01975 

IFNN<1.30THENN$«"(SH 

M) (SH 

I}": 

GOTO 

1965 

1975 

IFNN <1.36THENN$-"(SH 

F) {SH 

A)": 

GOTO 

1 966 

1975 

IFNN< 1 .45THENN$-»(SH 

F) {SH 

A)#" 

: GOT 

1967 

01 975 

IFNN<1.55THENN$«"(SH 

S) {SH 

0){SH L) 

1 968 

":G0T01975 

IFNNC1.65THENN*-"(SH 

S) {SH 

0){SH L) 

1969 

#":G0T01975 

IFNN <1.75THENN$-"(SH 

L) {SH 

A)": 

GOTO 

1 970 

1975 

IFNN<1 . 82THENN*»"(SH 

L) {SH 

A}#" 

: GOT 

1972 

1975 

2000 

01975 

N$-"{SH S){SH I)" 
N$»N$+STR$(X):RETURN 

GOSUB2400 :PRINT"(HOME){CUR. 

GIU) 

{SH 

2002 

R ) EGISTRAZI0NE SU":GOSUB5000 
IFA$-"N"THENFR-0:G0SUB1 600 :PRINT" ( 


rvs on}nastro irvs off)"; :zz*-i :Gos 
UB1500:GOT02010 

2005 IFA$-"D"THENFR-1 : GOSUB1 600 :PRINT" { 
RVS ON } DISCO (RVS OFFZZJ-1 :GOSU 
B1 500 :G0T02010 

2007 RETURN 

2009 IFZZXPP*0RZZ<>LLJTHENG0SUB1 600 :RET 
URN 

2010 A-FNB(ZZJ):PP%-ZZ % :ZZ<-LL % :GOSUB 1 60 
0 :PRINT"ALLA NOTA ("ZZ*")"; :INPUTZZ 


% 

2015 IFZZ*<PP*0RZZ*>LL*THENG0SUB1600 :RET 
URN 

2020 B-FNB(ZZ*)+7 


2030 G0SUB1600:INPUT"(SH TjITOLO DEL BRA 
NO";BR$ 

2040 G0SUB1 600 :PRINT"(SH R ) EGISTRAZI0NE 
DI (RVS 0N)"BR$"{RVS OFF) DALLA N0T 
A N. {CUR.SIN) "PP*"ALLA NOTA N. (CU 
R.SIN}"ZZS 

2050 PRINT"{RVS ON JCONFERMI?{3 SPC } (3 CU 
R.SIN}" ; :GOSUB5000:IFA$<>"S"THENPRI 
NT" NO ":RETURN 

2060 IFFRTHENOPEN1 , 8,2,"@0 :" + BR$ + ",S.W»: 
GOTO2O80 

2070 0PEN1,1,1,"MUSIC-(SH I}" 

2075 PRINT#1,BR$ 

2080 PRINT#1 , A 
2085 PRINTlM ,B 

2090 F0RT-AT0B:PRINTlM ,CHR$(PEEK(T));:NE 
XT 

2095 FORT-OT02:PRINT#1,AD*(T ):PRINT#1,SR 
* (T ) 

2096 PRINT#1,W*(T):PRINT#1,DC*(T):NEXT 
2100 PRINT#1 .F-.CL0SE1 :RETURN 

2200 G0SUB2410 :PRINT"{HOME}{CUR.GIU) (SH 
C)ARICAMENT0{2 SPCjDA ":GOSUB5000 
2202 IFA$-"N"THENG0SUB1600:PRINT" NASTRO 
":G0T02210 

2205 IFA$-"D»THENG0SUB1600 :PRINT» DISCO 
- "; :G0T02295 
2207 G0T080 

2210 0PEN1,1,0,"MUSIC-(SH I)" 

2215 INPUT#1 ,BR$ 

2220 INPUT#! , A 
2230 INPUT#1 , B 

224 0 F0RT-AT0B:GET#1 ,A$ :IFA$-""THENA$-Z$ 
2245 POKET,ASC(A$ ):NEXT 

2250 FORT-0TO2:INPUT#1,AD*(T):INPUT#1,SR 
XT) 

2255 INPUT# 1 ,WXT) : INPUT#1 , DCXT) : NEXT 
2260 INPUT#1,F:CL0SE1:G0SUB4l 
2280 AA*-FNA(A):LL*-FNA(B-7):IN-B+1 
2285 G0SUB1 600 :PRINT"(SH H)0 CARICATO (R 
VS 0N } "BR $"(RVS OFF), DALLA NOTA N. 
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ed utilizza un procedimento empirico 
che risulta, in BASIC, più veloce di una 
routine in grado di simulare il procedi¬ 
mento inverso a quello utilizzato per tra¬ 
scrivere i valori delle note; il ciclo della 
linea 1910 provvede infatti a riconosce¬ 
re l'ottava a cui appartiene la nota, che 
viene individuata quindi, tra le linee 
1950 e 1975, in base al rapporto tra la 
propria frequenza coò quella del Do 
corrispondente. 

Tra le linee 2000 e 2490 sono collocate 
le routine di registrazione e caricamen¬ 
to dei file generati, delle quali si può dire 
che sono congegnate per ottenere la 


massima compattezza nella scrittura 
dei dati e, soprattutto nel caso che si usi 
il registratore a cassette, la massima 
velocità nel caricamento e salvataggio 
degli stessi. I valori numerici delle note 
vengono infatti inseriti e quindi letti sot¬ 
to forma di codici ASCII (vedi righe 2090 
e 2240-2245). 

Da 2500 a 2870 trova posto la routine di 
definizione delle voci (vedi manuale, per 
un uso corretto); da 3000 ha invece ini¬ 
zio la fondamentale routine di trasfor¬ 
mazione. Dopo aver trascritto i nuovi 
valori e "pokato" a 3072 e 3073 i due 
zeri che indicano la fine del nuovo pro¬ 


gramma BASIC, il programma lancia 
con dei codici di Return inseriti nel buf¬ 
fer della tastiera, un ciclo che ricopia i 
valori della musica nelle locazioni suc¬ 
cessive a questo nuovo programma BA¬ 
SIC e provvede ad aggiornare i puntato¬ 
ri alle variabili: l'intera operazione è sot¬ 
to gli occhi dell'utente. 

Da 5000 a 5050 c'è la routine che gesti¬ 
sce tutte le Get del programma; la su¬ 
broutine di 10000 (richiamata dalla li¬ 
nea 9) crea un'area protetta per la mu¬ 
sica e riserva circa 2 Kbyte alle variabili 
alzando i puntatori alla fine del pro¬ 
gramma. Solitamente si utilizza il proce- 


Seguito listato 1. 

"AA$"ALLA NOTA N."LL$ 

2290 GOSUB5000:G0T080 

2295 INPUT"{SH B}RANO";BR$: OPEN 1 ,8,2,BR$ 
+",S,R":G0T02220 
2400 G0SUB900 

2410 PRINT"(HOME){40 CBM 0)"; 

2420 PRINT"{19 SPC): (RVS 0N){SH N){RVS 
OFF}ASTRO 0 (RVS ON}{SH D}[RVS OFF) 
ISCO?{4 SPC}"; 

2430 PRINT"(40 CBM U)":RETURN 
2490 PRINT"{CUR.GIU)"TAB(11)"{RVS 0N){SH 
A}{SH D){RVS 0FF)-{RVS 0N){SH S}{S 
H R}{RVS 0FF}-{RVS 0N}{SH W}{SH A){ 
RVS OFF}-{RVS 0N)DC{RVS OFF}" 

2500 F0RT-0T02 

2510 PRINT"{CUR.GIU){3 SPC){RVS 0N)"T+1" 
{RVS OFF) {SH V}0CE"AD$(T)jSRj(T) ; : 
IFW*(T)=17THENPRINT" {SH T}" 

2515 IFW56(T) = 33THENPRINT" {SH S}" 

2520 IFWÌ(T )-65THENPRINT" {SH P}";:PRINT 
DCJ(T) 

2525 IFW$(T)-129THENPRINT" {SH N}" 

2530 NEXT:GOSUB5000 

2550 IFVAL(A$)>0ANDVAL(A$)<4THEN2700 
2600 RETURN 
2700 T“VAL(A$)-1 

2705 PRINTTAB(10)"{CUR.GIU){RVS 0N} {SH 
V}{SH 0 ) {SH C){SH E) {CUR.SIN}"T+1" 

: NUOVI PARAMETRI" 

2710 INPUT"{SH A } TTACK-DECAX"; AD%(T) 

2715 IF A D $ ( T )<OORADJ(T )>255THEN2710 
2720 INPUT" {SH S } USTAIN-RELEASE";SR % (T) 
2725 IFSR*(T)<00RSR$(T)>255THEN2720 
2730 INPUT"{SH W } AWEFORM ({SH T)-{SH S}- 
{SH P}-{SH N})";W$ 

2735 IFW$-"T"THENW*(T)-17:G0T02800 
27 40 IFW$-"S"THENWiKT)-33 : GOTO2800 
27 4 5 IFW$»"N"THENW$(T ) =* 1 29 :GOT02800 
27 50 IFW$-"P"THENWJ(T )-65:G0T02770 


2760 GOTO2730 

2770 INPUT"{SH D } UT7-CYCLE (0-4095 )";DC % 
(T) 

2780 IFDC$(T)<0ORDCJ(T)>4095THENGOTO2770 
2800 G0SUB41 : PRINT"{CUR .GIU}0K?" 

2810 P0KEW1,0:POKEW2,0:POKEW3,0:POKE5429 
6,1 5 :0NT+1G0SUB2850,2860,2870 
2820 G0SUB5000:P0KEW1 ,0 : P0KEW2,0 :P0KEW3, 
0 :POKE54296,0 
2830 IFA$-"N"THEN2705 
2840 GOT02500 

2850 P0KEH1 ,27:P0KEL1 ,125:P0KEW1 ,W$(0):R 
ETURN 

2860 P0KEH2,27:P0KEL2,125:P0KEW2,W*(1):R 
ETURN 

2870 POKEH3.27:P0KEL3,125:P0KEW3,W*(2):R 
ETURN 

3000 IFLL5U12THEN5000 

3005 G0SUB850:PRINT"{HOME){RVS ON}"; 

3010 PRINT"TRASFORMAZIONE IN PROGRAMMA D 
ELLA MUSICAIN MEMORIA DALLA NOTA 1 
A"LL* 

3020 PRINT"{RVS ON}CONFERMI?{4 SPC}{4 CU 
R.SIN)" ; :G0SUB5000:IFA$<>"S"THENPRI 
NT" NO":G0T0835 
3025 PRINT" SI" 

30 30 POKE22 69,1 43:POKE2465,143:POKE2498, 
52:POKE24 99,4 8 :POKE2500,57:P0KE2501 
,54 :POKE2834,1 28 

3040 ZZ»FNB(LLJ):B$-STR$(ZZ-10248):IFLEN 
(B$)>5THENB$»RIGHT$(B$,5) 

3050 ZZ*»2502:G0SUB4000 

30 60 B$»STR$(F):IFLEN(B$ )>3THENB$»RIGHT$ 

(B$,3) 

3070 IFLEN(B$X3THENB$ = B$ + " " 

3080 ZZ*»2338:G0SUB4000 
3090 FORT-0TO2 

3100 B$»STR$(ADf6(T ) ) : GOSUB3500 
3110 ZZJ-2843+( 1 1 *T) :GOSUB4000 

31 20 8$»STR$(SR?(T) ) :GOSUB3500 
3130 ZZS-2880+ ( 11 »T ) .-GOSUB4000 
3140 B$ = STR$(DC$(T) ) :GOSUB3500 
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dimento contrario, viene cioè abbassa¬ 
to il top della memoria operando sulla 
locazione 56, ma ciò non avrebbe per¬ 
messo di far funzionare il ciclo adope¬ 
rato per la trasformazione del program¬ 
ma, dal momento che la variabile impie¬ 
gata verrebbe cancellata dal ciclo stes¬ 
so, con conseguente blocco del calco¬ 
latore. L'unico inconveniente della solu¬ 
zione adottata consiste nel fatto che il 
programma non può essere corretta- 
mente registrato dopo che questa routi¬ 
ne viene richiamata. Per superarlo è 
sufficiente disattivarla durante la even¬ 
tuale trascrizione del programma, o co¬ 
munque effettuarne una copia prima 
del Run. 

Elenco dei comandi 

1) Comandi sempre validi 
(Eccetto le fasi di esecuzione, gestione 
del drive o del registratore, e le richieste 
di numero nota). 

F2 - Suona il brano dall’inizio al punto di 
scrittura (o lettura) in cui ci si trova. 

F4 - Suona le ultime dodici note del 
brano dal punto di lavoro in cui ci si 
trova. Nota: dall’esecuzione, sia qui che 
al punto D del menu, si può uscire anti¬ 
cipatamente premendo Spazio. 

> e < - Rispettivamente aumentano e 


diminuiscono la velocità d'esecuzione, 
il cui valore, espresso in battute da 1/4 
al minuto, appare scritto nella riga più 
alta dello schermo. 

2) Menu 

A - Inizio lavoro. Conduce alle opzioni di 
lavoro (vedi avanti). 

B - Caricamento musica. Dà il Load di 
un brano registrato sotto forma di file, 
per poterne continuare la scrittura o 
correggerlo. Bisogna rispondere alla 
domanda (in alto sullo schermo) “Disco 
o Nastro”. Un tasto differente fa tornare 
al menu. Scegliendo l'opzione Disco 
viene anche chiesto il titolo del brano e 
le note che occupa; con la pressione di 
un tasto qualsiasi si torna al menu. 

C - Definizione voci. Il programma dà i 
parametri inseriti nei registri di Attack- 
Decay, Sustain-Release e Waveform 
(più il Duty-Cicle, se Pulse), e richiede il 
numero della voce da ridefinire (1,2 o 3: 
un tasto diverso fa tornare al menu). 
Scelta la voce e inseriti i nuovi parametri 
si ascolta il La3 cosi ridefinito e viene 
chiesta conferma dell'operazione; “S” 
fa tornare alla scelta della voce da defi¬ 
nire, un altro tasto ripropone la defini¬ 
zione precedentemente selezionata. 

D - Suona musica. Fa ascoltare l'intero 
brano presente in memoria. 


3) Opzioni di lavoro 

Nelle fasi di lavoro, la pressione di tasti 

non corretti provoca una segnalazione 

acustica. 

A - Scrivi. Richiede il numero di nota da 
cui iniziare la scrittura (fra parentesi ap¬ 
pare il valore di default, equivalente alla 
prima nota non scritta, che si seleziona 
battendo subito Return; l'inserimento 
dello 0 fa invece uscire dall'opzione)(*). 
La scrittura si divide in tre fasi, 
a) Introduzione della durata (subito do¬ 
po che appare scritto, sulla sinistra il 
numero della nota). La durata viene in¬ 
trodotta sotto forma di valore numerico, 
o con i tasti numerici o con quelli di 
funzione, FI, F3, F5, F7, secondo il se¬ 
guente schema. 


4/4 

twrrvbfo*#! 

- « 


2/4 

(mirtini*) 

400 FI 

(72 m puntila) 


iMmumnime) 

24oF3 

136 M cantata 16 Miniar 
/ina) 

1/0 

(C'Omal 

1?oF5 

(18 •« puntata 6 Min ter¬ 
zina) 

1/16 

(Mroicroma) 

= 60 F7 

1 9 se puntala 4 Min ter¬ 
zina) 

1/32 

1/64 

(tacfornai 

(MnWb'Jcroma) 

» 3 

* in 

( 2 mio terzina) 


Spazio o Return - Confermano la dura¬ 
ta introdotta coi tasti numerici o, premu¬ 
ti immediatamente, ripetono la durata 
della nota precedente. 

Del e Shift + CIr - Sono comandi validi 
in tutta la fase di scrittura: il primo an¬ 
nulla l'ultimo dato introdotto, il secondo 


Seguito listato 1. 


3150 ZZJ-2917 + (52»T)ìG 0SUB4000 
3155 ZZf-2933'*' (52*T ) :G0SUB4000 
3160 ZZ*-29 1 »3+(52*T) :G0SUB4000 
3170 B$-STR$(W*(T) ) 

3180 IFLEN(B$)<5THENB$-B$*" ":GOT03180 
3190 ZZ<-2715+(10«T):GOSUB4000 
3200 NEXT 

3210 PRINT"(CLR}"j :PRINTTAB(13 ) "(RVS 0N ) 
(SH A){2 SH T)(SH E ) {SH N } {SH D)(S 
H E}(SH R)(SH E)(SH SPC)" 

3220 PRINT"T=4096:FORI-14344TO"ZZ+7":P(S 

H 0 ) T , P{SH E}(I):T-T+1 :N(SH E)" 

3230 AA%- (ZZ-10232)/256:PP*-(ZZ-10232)-( 
AA > * 256 ) 

32110 PRINT"P{ SH 0)115 ,"PPH" :P{SH 0)46,"AA 
J:P(SH 0)4 7,"P P J":P(SH 0)48,"AAj": 
P(SH 0}49,"PP*":P(SH 0)50, "AA% 

3250 P0KE631,19:POKE632,17:POKE633,13:PO 
KE63H,19:POKE635,17:POKE636,17 :POKE 


637,1 7: POKE638,1 3 

327 0 POKEK98,8:CLR:POKE3072,0 :POKE3073,0 
: END 

3500 N IFLEN (B$ ) < 6TH EN B$-B$* " ":GOTO35O0 
3510 RETURN 

4000 FORI»1T0LEN(B$):P0KEZZ$+I,ASC(MID$( 
B$ , I , 1 ) ) :NEXT:RETURN 
5000 POKE198,0 
5005 GETA$:IFA$-""THEN5005 

5010 IFA$="[CTRL X]"THENGOSUB3000:GOT050 
00 

5020 IFA$-" { F 4 ) 11 TH ENGOSU B950 : GOT05000 
50 30 IFA$-"(F2)"THENA-1 4 34 4 :B-IN:G0SUB15 
:GOT05000 

5040 IFA$»">"THENGOSUB800:GOT05000 
5045 IFA$-"<"THENG0SUB8l5:GOT05000 
5050 RETURN 

10000 POKE46,148:P0KE48,148:P0KE50,148 
10010 POKE45,0 :POKE47,0 :POKE49,0 : RETURN 
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cancella l'intera riga, 
b) Introduzione del valore delle note per 
ognuna delle tre voci. I comandi sono 
(in ordine di immissione): 

Spazio - Ripete, staccandola, la nota 
precedentemente trascritta nella stessa 
voce; 


Return - Come sopra, senza però stac¬ 
care la nota (visualizzazione in reverse); 
| - Inserisce una legatura (non una le¬ 
gatura d'espressione). Le note legate 
appaiono in reverse, legando una nota 
uguale alla precedente si ottiene lo stes¬ 
so effetto di Return. 


Introduzione del valore della nota. 

• A = La; B = Si; C = Do; D = Re; E = 
Mi; F = Fa; G = Sol. 

• + = alza la nota di un semitono 
(diesis, #). 

• - = abbassa la nota di un semitono 
(bemolle, b). 


Listato 2 - Un celeberrimo orano classico suonato dal Commodore. 


Listato 3 - Ecco un motivo che tutti conoscono. 


1 

2 

3 

4 

5 

6 
9 


REM **»»»»***»********»»**»»****» 

REM * " PROMENADE " » 

REM * DAI * 

REM * QUADRI D'UNA ESPOSIZIONE * 

REM * DI MODEST MUSSORGSKI * 

REM *****»«»»»»**#*»»»»»»*«»***** 

REMI 0000 

10 LI -5^272:H1 -Ll + 1 :Wl-L.1+4:Al-t.1 + 5sS1-L. 

1+6:D1-L1+3:C1-L1+2:F-1.4 
1 1 L2-54279:H2-L2+1 :W2-L2+4 : A2-L2 + 5:S2-L 
2+6:D2»L2+3:C2-L2+2 

12 L3-54286:H3-L3+1 :W3-L3+4:A3-L3+5:S3-L 
3+6:D3-L3+3:C3=L3+2:REM50 

13 G0SUB41 

15 POKE54296.15 

16 F0RT=4096T0 5584STEP8 

1 7 0N(PEEK(T + 7 )AND7)G0T025,22,24,20,19,2 
1 ,23 

18 G0T026 

19 P0KEW1 , 0 

20 POKEW3,0:GOTO26 

21 POKEW3.0 

22 P0KEW2,0:G0T026 

23 POKEW3.0 

24 P0KEW2,0 

25 P0KEW1,0 

26 P0KEH1 ,PEEK(T+1):P0KEL1 ,PEEK(T + 2):P0K 
EH2,PEEK(T+3) 

27 P0KEL2, PEEK(T+4):POKEH3,PEEK(T + 5):POK 
EL3.PEEKCT + 6) 

28 P0KEW1 , 65 : P0KEW2, 65 :POKEW3, 33 

:TI$=*" 000000" 

30 GET A$ : I FA " "THENT=B : GOT040 
32 IFTI<(PEEK(T)*F-3)THEN30 
<10 NEXT :P0KE54296,0: P0KEW1 , 0 : P0KEW2,0 : PO 
KEW3,0:END 

41 POKEA1, 12 :P0KEA2, 12 :P0KEA3, 1 

2 

42 P0KES1, 96 :P0KES2, 96 :P0KES3, 1 

2 

43 P0KED1, 2250 /256 :P0KEC1 ,( 2250 -(INT 
( 2250 /256 ) ) * 256) 

44 POKED2 , 2200 /256:P0KEC2,( 2200 -(INT 
( 2200 /256 ) ) * 256 ) 

45 P0KED3, 0 /256 : P0KEC3,( 0 -(INT 

( 0 /256 ) )*256) 

46 RETURN 


1 REM s»»»»**»*»»»»***»*»*»**»»**** 

2 REM « » 

3 REM * YESTERDAY * 

4 REM » (LENNON - MC CARTNEY) * 

5 REM » » 

6 rem *«»****»*»*»*»ii**»it«»*»****** 

9 REM 1 0000 

10 L1-54272:H1-L1+1:W1-L1+4:A1»L1+5:S1-L 
1+6:D1-L1+3:C1-L1+2:F-1.5 

11 L2-54279:H2»L2+1 :W2-L2 + 4 :A2-L2 + 5 :S2-L 
2+6:D2-L2+3:C2-L2+2 

12 L3-54286:H3-G3+1:W3-L3+4:A3»L3+5:S3-L 
3+6:D3-L3+3:C3=L3+2:REM50 


13 

15 

16 
1 7 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 


30 

32 

40 

41 

42 

43 

44 

45 

46 


G0SUB41 
POKE54296,15 
FORT-4096TO 5408STEP8 

ON(PEEK(T+7)AND7)G0T025,22,24,20,19,2 

1 ,23 

G0T026 

P0KEW1,0 

POKEW3,0:GOTO26 

P0KEW3,0 

P0KEW2,0:G0T026 

P0KEW3.0 

P0KEW2,0 

P0KEW1,0 

POKEH1 ,PEEK(T+1):P0KEL1 ,PEEK(T + 2) :P0K 
EH2,PEEK(T+3) 

P0KEL2,PEEK(T+4):P0KEH3,PEEK(T + 5) :POK 
EL3,PEEK(T+6) 

P0KEW1, 65 :P0KEW2, 65 :P0KEW3, 65 

:TI$«"000000" 

GET A$:IFA$«" "THENT-B:GOT040 

IFTI<(PEEK(T)*F-3)THEN30 

NEXT:POKE54296,0:P0KEW1 ,0 :P0KEW2,0 : PO 


KEW3.0: 

END 





P0KEA1, 

5 

64 

:P0KEA2, 

64 

:POKEA 3. 1 

c. 

P0KES1, 

O 

253 

: P0KES2, 

127 

:P0KES3, 1 

c. 

P0KED1, 

2500 

/256:P0KEC1,( 

2500 

-(INT 

( 2500 

/256)) 

*256) 




P0KED2, 

2500 

/256:POKEC 2,( 

2500 

-(INT 

( 2500 

/256) ) 

*256) 




P0KED3, 

2250 

/256:P0KEC3,( 

2250 

- ( INT 

( 2250 

/256 ) ) 

*256) 





RETURN 


23 






Listato 4 - Una canzone tradizionale, computerizzata. 


1 REM ***«*»****»*»»»**»*»»*»*»»»** 

2 REM * E VUI DURMITI ANCORA * 

3 REM * DI » 

4 REM * GAETANO E. CALI' * 

5 REM » * 

6 REM *******»**«»#*»»*»*#*****»*#» 

9 REM 10000 

10 L1-54272:H1»L1+1«W1-L1+4»A1-L1+5sS1-L 
1+6:D1-L1+3:C1«L1+2:F- 2 

11 L2-54279:H2-L2+1:W2-L2+4:A2-L2+5:S2-L 
2+6:D2=L2+3:C2-L2+2 

12 L3-54286:H3=L3 + 1:W3-L3+4:A3-L3 + 5:S3-L 
3+6:D3-L3 + 3:C3-L3*2:REM50 

13 GOSUB41 

15 POKE54296,1 5 

16 F0RT-4096T0 8000STEP8 

17 0N(PEEK(T + 7)AND7)G0T025,22,24,20,19,2 

1 ,23 

18 G0T026 

1 9 POKEW1 ,0 

20 POKEW3,0:GOTO26 

21 P0KEW3.0 


22 

23 

24 

25 

26 

27 

28 

30 

32 

40 

41 

42 

43 

44 

45 

46 


POKEW2,0:GOTO26 
POKEW3.0 
POKEW2, 0 
P0KEW1 , 0 

POKEH1 , PEEK(T+1 ):POKEL1 , PEE K (T + 2) : P0K 
EH2,PEEK(T+3) 

P0KEL2,PEEK(T+4):POKEH3,PEEK(T+5):POK 
EL3.PEEK(T+6) 

P0KEW1 , 33 :POKEW2 , 33 :POKEW3, 33 

:TI$="000000" 

GETA$ : IFA$-" "THENT=B:GOTO4 0 

IFTI<(PEEK(T)»F-3)THEN30 

NEXT:POKE5 4296,0:POKEW1 , 0 : POKEW2 , 0 : PO 


KEW3,0 : END 

POKEA1, 12 :P0KEA2, 12 

2 

POKES1, 12 :POKES2, 12 

2 

POKED1, 2000 /256:POKEC1,( 
( 2000 /256 ) ) * 256) 

P0KED2, 0 /256 : P0KEC2,( 

( 0 /25 6) ) * 256 ) 

POKED3, 0 /256 : P0KEC3,( 

( 0 / 256 ))* 256 ) 

RETURN 


:POKEA 3 > 1 
:POKES3 , 1 
2000 -(INT 
0 -(INT 
0 -(INT 


• 0^-6 = selezionano l'ottava (ad e- 
sempio, il La3 equivale al La sulla se¬ 
conda riga della chiave di violino). 

Crs Down o Crs Right - Inseriscono una 
pausa. 

Dèi e Shift + CIr - Come sopra, 
c) - Richiesta di conferma (visualizzata 
da un punto interrogativo sulla destra 
della linea appena scritta). 

S - (Suona) fa ascoltare l’accordo ap¬ 
pena introdotto. 

Spazio o Return - Fanno passare alla 
scrittura della nota successiva. 

Del e Shllt + Clr - Come sopra. 

★ o @ - Inseriscono un segno mnemo¬ 
nico (può servire, ad esempio, a ricor¬ 
dare l'inizio di un ritornello), visualizzato 
da ★. 

F6 - Registra il brano sotto forma di file 
sequenziale. 

Dopo la scelta fra disco o nastro (al 
solito, una lettera diversa fa uscire dalla 
routine), vengono richieste le note da 
registrare (default: l'intero brano: 0 per 
uscire) e il titolo. 

A termine dell'operazione si torna alle 
opzioni di lavoro. 

F8 - Mette fine alla scrittura, dando con¬ 
ferma dell'ultimo rigo trascritto, e ricon¬ 
duce alle opzioni di lavoro. 
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B - Ricopia. Permette di ricopiare un 
blocco di note già trascritto, a partire 
dalla nota che si sceglie. 

Richiede: la nota da cui ha inizio il bloc¬ 
co'da ricopiare (default: la nota n. 1) e 
quella in cui si conclude (default: l’ulti¬ 
ma nota trascritta), e la nota a partire 
da cui va ricopiato il blocco cosi selezio¬ 
nato (default: la prima nota non scritta: 
la scelta di una nota precedente provo¬ 
ca la cancellazione delle note su cui si 
va a ricopiare). 

Il programma dà segnalazione di errore 
se l'operazione non può essere effet¬ 
tuata. 

Rispondere 0 all'input o un tasto diverso 
da S alla richiesta di conferma, fa uscire 
dalla routine. 

Al termine, ritorna alle opzioni di lavoro. 

C - Leggi. Legge la musica scritta in 
memoria. 

Richiede la nota da cui iniziare la lettura 
(default: la nota n. 1). 

I comandi di questa routine (S per suo¬ 
nare l'accordo, Spazio o Return per leg¬ 
gere la nota successiva; F6 per registra¬ 
re; F8 per uscirne) funzionano come al 
punto c) della fase di scrittura (***). 

D - Menu. Riconduce al menu iniziale. 


4) Comando Ctrl+X 

A conclusione del lavoro di scrittura e 
correzione, dopo aver ben definito le 
voci e il tempo di esecuzione, si può 
dare il comando Ctrl + X, che è accetta¬ 
to in qualsiasi fase di lavoro, a condizio¬ 
ne però che sia presente un minimo di 
musica già scritto in memoria. 

A questo punto il programma indica le 
dimensioni del brano e chiede confer¬ 
ma del comando: rispondendo S si au¬ 
todistruggerà trasformandosi in un al¬ 
tro programma, il cui scopo è unica¬ 
mente di suonare la musica preceden¬ 
temente trascritta. 

Il brano musicale, così ottenuto non po¬ 
trà più essere corretto nè modificato, 
pertanto, se il lavoro non è stato perfe¬ 
zionato, occorrerà, prima di dare il co¬ 
mando Ctrl + X, registrarlo in forma di 
file con F6. 

Il listato BASIC del programma cosi ot¬ 
tenuto non è modificabile, se non all'in¬ 
terno della cornice di asterischi che rac¬ 
chiudono il titolo del programma nelle 
Rem iniziali, che può essere usata per 
scrivere titolo e autore del brano così 
ottenuto. 
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Note 

(*) Si può anche cominciare scrivendo 
una nota più alta della prima: il pro¬ 
gramma considererà così le note prece¬ 
denti come già scritte; ovviamente il bra¬ 
no non potrà essere suonato dal princi¬ 
pio finché queste note non saranno sta¬ 
te effettivamente trascritte. 

Inserendo invece il numero di una nota 
già scritta, questa (e, eventualmente, le 
successive) verrà riscritta. 

La nota più alta inseribile è la n. 2968, 
dopodiché il programma dà segnala¬ 
zione di “memoria esaurita”. 

(**) L'incongruenza è solo apparente: la 
velocità del programma è tale che la 
durata 1 viene effettivamente eseguita 
in un tempo approssimativamente e- 
guale a 1,5. 

Naturalmente, per realizzare un trillo di 
semiminima, occorreranno 16 semibi¬ 
scrome, non 24! 

(*“) In fase di lettura il programma co¬ 
nosce solo i “diesis", non i "bemolle". 
Così, ad esempio, se si è introdotto un 
Sib3, esso verrà letto come un La#3. ■ 
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Cartelle 
per tutti 

Generiamo infinite cartelle 
per giocare a Tombola 

di Daniela Cerò 


C apita spesso che oratori, 
scuole, associazioni o circoli 
di vario genere organizzino 
delle "gigantesche Tombole" 
con la necessità, quindi, di disporre di 
un numero abbastanza elevato di car¬ 
telle. Il problema maggiore a cui si può 
andare incontro, è nell'avere cartelle 
pressoché uguali o contenenti addirit¬ 
tura gli stessi numeri. 

Cosi abbiamo pensato di far intervenire 
il nostro amato computer per generare 
le cartelle del gioco: forniamo due pro¬ 
grammi per due macchine diverse, lo 
Spectrum e l'Apple, che presentano ca¬ 
ratteristiche del tutto identiche; solo il 
formato dell’output è diverso. Facendo 
un breve commento sul listato vedremo 
come sia semplice l'adattamento di 
questo programma per ogni altro com¬ 
puter. 

All'inizio, nel pensare l'algoritmo, l’idea 
era quella di fare un ciclo che si ripetes¬ 
se sei volte, estraendo, in ogni passata, 
quindici numeri, facendo attenzione a 
non avere cartelle contenenti più di tre 
numeri di una stessa decina. Ma i con¬ 
trolli da fare diventano già tanti e ci si 
trova di fronte ad alcuni problemi: prima 


di tutto si doveva fare un ordinamento 
dei numeri estratti, i tempi di elaborazio¬ 
ne diventano molto alti ed infine, cosa 
più grave, poteva capitare che l’ultima 
cartella del ciclo non fosse realizzabile 
(vedremo poi cosa significa questo), è 
stato così che si è giunti ad una nuova 
soluzione che vediamo spiegata analiz¬ 
zando il programma visibile nel listato 1, 
realizzato per lo Spectrum. 


All’inizio vengono dimensionati tre vet¬ 
tori, N, F, T$ che conterranno rispettiva¬ 
mente i 90 numeri, le decine di numeri 
estratti, i numeri estratti in forma di strin¬ 
ga. Il vettore T$ contiene all'inizio solo 
due spazi bianchi per ognuna delle sue 
nove posizioni. All'utente vengono dap¬ 
prima chieste quante cartelle vuole 
stampare, quindi da che numero desi¬ 
dera far partire la numerazione di dette 


Listato 1 - Con questo programma vengono create tutte le cartelle 
che desiderate, utilizzando una stampante a 32 colonne. 


10 DIM n(90): DIM f(9): DIM t$ 
(9.2) 

15 FOR i=l TO 9: LET t$(i)=" 
NEXT i 

20 cls : INPUT "Quante carte U 

* ";q 

26 LET dI*" - 


NEXT i 

130 LPRINT : LPRINT d$ 

190 NEXT j 
200 LPRINT : LPRINT 
250 LET q=q-l: LET psp+1: IF q= 
0 THEN STOP 

260 IF K =15 TMEN GO TO 40 
270 Gù TO 60 


no input "La numerazione parte 
•da ".p 

40 FOR i*l TO 90: LET n(i)=i: 
NEXT i: LET k=90 
50 6EEP .5.2 

60 LPRINT " Cartella n.";p 
70 LPRINT d$ 

30 FOR J=0 TO 2 
90 FOR i=1 TO 5 
100 LET C = INT (k *RND) +1 
110 LET Z = INT (n(C)/10)+l: IF Z 
=10 TMEN LET z=9 
120 LET MZ)=f(Z)+l: IF Mz)>l 
TMEN GO TO 100 

130 LET t C (Z) =STR $ nic): LET n( 
c ) =n ( k ) 

140 LET k»k-l 

150 NEXT i: LPRINT " I"; 

160 FOR i=l TO 9: LPRINT t*(i); 


170 LET Mi) *0 : LET t*(i)=" 


Lista delle variabili del listato 1 

N Vettore che contiene i 90 numeri da estrarre. 

F Vettore di 9 posizioni nel quale si memorizza la decina 

di un numero. 

T$ Contiene il numero estratto, in forma di stringa, o due 
spazi bianchi. 

D$ Più che una variabile è una costante, formata da una 
serie di linee, utile per la stampa. 

K Stabilisce fra quante posizioni di N si deve cercare 
il numero da estrarre. 

C Contiene la posizione del numero da estrarre. 

Z È la decina del numero estratto. 

q Contiene il numero di cartelle da stampare. 

P Variabile usata per numerare le cartelle. 

I,J Variabili di comodo, usate nei cicli For. 
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APPLE II-ZXSPECTRUM 


Figura 1 - Ecco un esemplo di output del listato 1. 



Listato 2 • Identico al primo, questo programma fornisce I quindici 
numeri In un unica riga (tre gruppi da cinque). 

10 HOME : DIM N (90) , F <8) , fi < 15) 

20 INPUT "Quante cartelle ";Q 

30 INPUT "La numerazione parte d 

a " ; P 

40 FOR J = 1 TO 90:N(J> = J: NEXT 
J:K = 90 

70 FOR J = 0 TO 2 

80 FOR I = 1 TO 5 

90 C ~ INT (K * RND <1)> + 1 

100 Z = INT (N(C) / 10): IF Z = 

9 THEN Z = 8 

110 F(Z > = F(Z) + 1! IF F(Z) > 1 THEN 

90 

120 fi(J * 5 + I) = N (C) s N (C) = N ( 

K) 

130 K = K - 1 

140 NEXT is FOR I = 0 TO 8tF(I) = 

0: NEXT I 

150 FOR I = 2 TO 5i FOR M = 5 TO 
I STEP - 1 

160 IF fi <5 * J + M - 1) > fi (5 * 

J + M) THEN C = fi(5 * J + M - 

1) : fi ( 5 * J + M - 1) *= fi (5 * 

J + M) :fi(5 * J + M) = C 


170 

NEXT M« NEXT I 


180 

NEXT J 


200 

D* = "" 


210 

PRINT D*;"PR#1" 


220 

FOR I = 1 TO 15* 

" ";s NEXT I 

PRINT fi(I); 

230 

PRINT " N." 

;P 

240 

PRINT 


250 

Q=Q— l:P=P+ 

1s IF Q = 0 


THEN PRINT D* ; " 

PRttO": END 

260 

IF K = 15 THEN 40 


270 

GOTO 70 



Listato 3 - Un tacile programmino che estrae e scrive sul tabellone 
I numeri per la Tombola; 

10 DIM n(90) : LET a-3 = LET b-1: LET k-90 
15 CLS 
20 BORDER 2 

30 PRINT : PRINT : PRINT : PRINT "{4gs8} 

{3gs8} (gs8}{gsl} {gs2){gs8} (3g38)Igsl} 
(3gs8) (2gs8) (7gs8) {3gs8} {5gs8} (gs8) 

{g38}{gsM {3gs8} {2gs8} I3gs8) {2gs8J 
{gs8) (gs8) (gs8) (gs8) {gs8} (3gs8) {gs 
8} (gs8) (2gs8) lga8) {gs8} (2gs8) I3gs 
8} {gs8} lgs8) (gs8) {gs8}(gal} {3gs8) ( 
4gs8} {3gs8} (2gs8) (3gs8) (gs8) lgs8) 

13gs8)lgs4 > (3gs8) {4gs8} {gs8} (gs8)" 

40 PRINT : PRINT : PRINT : PRINT : PRINT 
: PRINT 
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cartelle. La riga 40 inizializza il vettore N 
assegnando i numeri in modo crescen¬ 
te (nella posizione “i” si troverà il nume¬ 
ro “i"). Dopo tante operazioni viene 
stampato il numero della cartella ed ini¬ 
zia il ciclo più importante (80 - 190) che 
è poi il cuore del programma. Tutto 
l’output avviene sulla stampante, ovvia¬ 
mente, sia per questo programma che 
per quello sull’Apple. 

L’idea risolutrice dei problemi esposti 
pocanzi è la seguente: semplificare il 
più possibile, quindi lavorare sulle tre 
righe di cinque numeri che compongo¬ 
no una cartella (linee 80 - 90). 

La riga 100 sceglie un numero tra i K 
disponibili e lo pone nella variabile C; 
quindi in Z viene memorizzata la decina 
del numero di posizione N(C) (si tenga 
presente che la decina di 8 è 1, quella di 
52 è 6, quella di 89 è 9, cosi come quella 
di 90). La linea 120 controlla che non ci 
siano già altre decine oltre a quella ap¬ 
pena trovata. 

Se il numero è accettabile viene conver¬ 


tito in stringa, quindi nella posizione C 
del vettore N, viene memorizzato il nu¬ 
mero che in quel momento occupa l’ulti¬ 
ma posizione (la K-esima, poiché K è 
una variabile che è decrementata appe¬ 
na si trova un numero da inserire nella 
cartella). 

Appena una cinquina è fatta, essa è 
pronta per essere stampata come si ve¬ 
de nelle linee 160-170: appena il numero 
è stampato, il suo posto nella variabile 
T$ è occupato da due spazi bianchi e la 
rispettiva decina è azzerata. 

Come detto prima, questo procedimen¬ 
to si ripete tre volte, tante quante sono le 
righe di una cartella. 

Negli ultimi passi del programma la va¬ 
riabile Q è decrementata e la P incre¬ 
mentata; si controlla se Q è zero, ovvero 
se tutte le cartelle richieste sono state 
stampate ed in tal caso il programma si 
ferma. 

Qui si possono avere due casi: se la 
variabile K è uguale a 15 il programma 
reinizializza il vettore N, altrimenti ripar¬ 


te dalla riga 60, stampando un'altra 
cartella. Cosa significa la condizione 
alla linea 260? Appena vengono stam¬ 
pate 5 cartelle (o 10, o 15 o un qualsiasi 
multiplo intero di 5) rimangono nel vet¬ 
tore N gli ultimi 15 numeri, tra i quali vi 
potrebbero essere più di tre numeri ap¬ 
partenenti ad una stessa decina. 

Un chiaro esempio di quanto vogliamo 
dire è dato dalla figura 1: dopo aver 
creato le prime 5 cartelle possiamo ve¬ 
dere quali erano gli ultimi quindici nu¬ 
meri rimasti nel vettore N: essi sono: 13, 
15,16, 25,33,43,46,48,64, 68, 69,80, 83, 
88, 90. 

Potete vedere che gli ultimi quattro ap¬ 
partengono ad una stessa decina, ov¬ 
vero dovrebbero essere stampati sulla 
stessa colonna, ma i settori disponibili 
sono tre e non quattro o più. 

Così per "tagliare la testa al toro" ab¬ 
biamo eliminato completamente la se¬ 
sta cartella (i confronti sulla validità av¬ 
rebbero rallentato eccessivamente il 
programma). 
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50 PRINT "Per estrarre un numero premi u 
n carattere qualsiasi ad eccezionedella <f 

>. 

60 PRINT "Con questo tasto l'estrazione 
e'fermata ed il programma termina." 

70 PRINT : PRINT : PRINT " PREMI UN TAS 
TO PER INIZIARE" 

60 PAUSE 0 

90 PAPER 5: BEEP 1,20 
100 CLS : PRINT " TOMBOLA" 

110 F0R i-1 TO 90 
120 PRINT AT a,b;i;" »; 

125 LET b-b+3: LET n(i)-i 

130 IF b>28 THEN LET b-1: LET a-a+2 

140 NEXT 1 

150 PLOT 5,11 : DRAW 238,0 

160 FOR ì-59 TO 155 STEP 48 

170 PLOT 5,i: DRAW 238,0 

175 PLOT 4+(i-59)*2.5,11: DRAW 0,143 

180 NEXT i 

190 LET c-INT (k*RND)+1 

200 LET x-n(c): LET n(c)-n(k): LET k-k-1 

210 LET d-INT (C x-1)/10 ) : LET r=2*d+3 

220 LET u-x-10»d: LET c-3*(u-1)+1 

225 FOR i-1 T0 15 

230 PRINT AT r,c;x: PRINT AT r,cj INVERSE 
1 ;X: BEEP 0.04,i 
235 NEXT i 

240 IF k-0 THEN G0 T0 270 
250 IF INKEY$-"" THEN GO TO 250 
260 IF INKEY$<>"f" THEN GO TO 190 
270 B0RDER 7: PAPER 7 
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APPLE II - ZX SPECTRUM 


Come potete vedere, il listato è estrema- 
mente breve ed occupa pochissima me¬ 
moria: considerazioni del tutto simili si 
possono fare per il secondo program¬ 
ma visibile nel listato 2, l’unica differen¬ 
za, oltre che a girare sull'Apple, sta nel 
fatto che i numeri della cartella vengo¬ 
no scritti in un'unica fila ordinati in ma¬ 
niera crescente in tre gruppi da cinque. 

Per fare questo si usa l'algoritmo di 
sorting visibile nelle linee 150-170; inuti¬ 


le dire che la stampa è in questo caso 
molto più veloce. 

Per concludere presentiamo anche un 
programma che estrae i numeri per il 
cartellone della Tombola: è estrema- 
mente semplice e ricalca considerazioni 
già fatte per il primo programmino sullo 
Spectrum. Basti dire che l’argoritmo per 
estrarre i numeri è uno dei più veloci in 
assoluto. ■ 


Figura 2 - Alcune cartelle stampate dall'Apple. 
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I l fatto che il BASIC dello Spectrum 
sia dotato di potenti comandi gra¬ 
fici quali l'Over e la curvatura nei 
Draw, permette la realizzazione di 
immagini veramente interessanti; ne è 
una prova il programma del listato 1. 
Qui vi stupirete nel vedere la semplicità 
del programma e la sofisticatezza delle 
immagini. Esse sono ottenute incro¬ 
ciando opportunamente semplici righe 
e attivando l’Over; il tutto è accompa¬ 
gnato da un adeguato accostamento 
dei colori. Non c'è altro da dire, le imma¬ 
gini parlano da sole. 

Il sapiente uso dell’istruzione Draw 
permette di creare un’infinità di immagi¬ 
ni. Per chi non lo sapesse, attribuendo 
alla curvatura (il terzo parametro del 
Draw) valori abbastanza grandi, si pos¬ 
sono tracciare innumerevoli strutture 
geometriche. Per meglio rendervi conto 
di ciò, provate il programma del listato 
2, usando i parametri della tabella 1. 
Tali valori, comunque, non esauriscono 
i disegni che si possono ottenere; sta a 
voi cercarne altri. Quando si realizza un 


La Computer Art 

secondo 
lo Spectrum 

Evidenziamo le relazioni matematiche 

che sono alla base 
di tutte le immagini computerizzate 

di Carlo Cappelli 


tipo di immagine, si deve tener conto 
delle approssimazioni che il calcolatore 
fa nel rappresentarle; vi è infatti una 
netta distinzione tra il punto fatto con 
una matita su un foglio di carta e il pixel 
acceso dal calcolatore sullo schermo. Il 


Listato 1 - Esempio di 
sofisticato 
programma grafico 
che strutta 
ampiamente le 
capacità dello 
Spectrum. 


10 REM *********************** 
20 REM * * 

30 REM * ARABESQUE * 

4.0 REM * * 

5C REM ************* ********** 
SO REM 
?0 REM 

SQ BORDER 0- INK 7 
90 PAPER 0: CLS 
100 OUER 1 

110 LET dx =2t (4- + INT «RND*3) ) 

120 LET X1=256/d X 

130 i_£ T C =5+ INT (RND*2) 

14.0 POR 1 =0 TO 1 

150 INK C: IF i THEN INK S-C 

150 POP K=0 TO X1-1 

170 POR n=0. TO 1 

130 POR X =0 TO dx-1 

190 PLOT dx * K i 175*n 

£00 DRAW x , 175-350*n 

210 PLOT dx * ( K. +1)-1.175*n 

220 DRAW -x, 175-35Q*!- 

230 NEXT X : NEXT n : NEXT K. 

24.0 NEXT ì 
c50 G0 Tu 110 


Listato 2 - Questo programma esprime tutte le possibilità grafiche 
dell’Istruzione Draw. 


10 

REM 

4-4-4. 4 . + * 4- 4 * 4 

20 

REM 

* DRAW * 

30 

REM 

+ * + + + + + *4* 

40. 

REM 


50- 

REM 


50 

INPUT 

‘colore de 11 0 s f 0 nd 0 

" 70 

BORDER 

C ' PAPER C 

30 

INPUT 

"co 1 0 re d e 1 1 ' 1 n c hi 0 st 

Cj " 

c 


90 

INK C 

CLS 

100 

INPUT 

"over (1 0 0 ) "; 0 

110 

OUER o 


120 

INPUT 

"coefficiente di base 

b 

130 

INPUT 

"esponente ";e 

1+0 

Plot 5 

0 .30 

150 

DRAW 100 , 100.bte*PI 

150 

INPUT 

" vu 0 i una copia su s t 


atrspan te “ ; a $ 

165 IP a $ = '' ” THEN 00 TO 130 
170 IF a $ ( 1) = "s ” OR a $ ( 1) ="5" T 
HEN COPY 

130 INPU t "vuoi camtiare i colo 
ri’ ” , a $ 

135 IP a 5 = ”“ THEN 00 TO 200 
190 IP a$(l)= ,, s" OR a$ Cl) ="S” T 
HEN 00 TO 50 
200 CLS 00 TO 100 
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punto tracciato a matita può essere po¬ 
sizionato dovunque sul foglio, mentre il 
pixel può occupare solo una posizione 
ben determinata, né un po' più su, né un 
po' più giù. Da ciò consegue che una 
retta tracciata con la matita è un tratto 
uniforme, mentre una retta disegnata 
dal calcolatore è fatta a scala. Ora, il 
sommarsi di queste distorsioni può dar 
luogo a immagini inaspettate. Provate il 
programma del listato 3; qui vengono 
tracciati due fasci di rette. All’interno di 
queste rette si possono scorgere delle 
precise immagini, che non compaiono 
in un simile disegno fatto a matita. 

Più si aumenta la distanza tra le rette, 
meno queste immagini secondarie risul¬ 
tano visibili; esse derivano dall’accumu- 
larsi degli errori di rappresentazione, 
più le rette sono fitte e più l'effetto è 
evidenziato. È interessante, sfruttando 
questi effetti collaterali, ottenere imma¬ 
gini gradevoli. Per meglio chiarire quan- 


Tabella 1 - Elenco dei 
valori da inserire in 
input nel programma 
Draw per ottenere 
determinate figure. 

Nella colonna 
dell'Over il trattino 
indica che si può 
usare sia 0 che 1. 
Questa tabella non 
esaurisce tutte le 
possibili Immagini 
che si possono 
ottenere. 


Listato 3 - Esempi di programmi sugli errori di rappresentazione. 


10 REM »UI=W 

20 input "step tra 1 e fi 

30 OUER 0 

4-0 POR i =0 TO 175 STEP s 
50 PLOT 0,0 
50 ORALI 255, i 
70 PLOT 255,175 
30 ORALI -255,-i 
90 NEXT i 
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to detto, provate i programmi dei listati 
3a e 4; volendo si può anche inserire 
l'effetto Over trasformando le istruzioni 
Over 0 in Over 1. Nel programma del 
listato 5 si sfruttano sia le distorsioni di 
rappresentazione, sia l’effetto Over. L'e¬ 
lemento più importante per realizzare 
dei disegni interessanti è avere fantasia 
unita a una buona conoscenza di geo¬ 
metria; infatti spesso non si è in grado di 
stabilire che tipo di disegno apparirà a 
priori, ma se ne può avere solo un'idea 
approssimativa con una buona dose di 
immaginazione. Per meglio capire que¬ 
sto concetto, provate il programma del 
listato 6. Qui il calcolatore è in grado di 
disegnare una moltitudine di immagini 
diverse. Nel realizzare questo semplice 
programma, ci siamo chiesti cosa suc¬ 
cede se si congiungono due punti che si 


muovono su due ellissi, una di forma 
fissa e una di forma variabile casual¬ 
mente; anzi, ancora meglio, se si unisce 
la X del primo punto e la Y del secondo 
con la X del secondo e la Y del primo. 
Alcune delle immagini che abbiamo ot¬ 
tenuto sono quelle di figura 4. È eviden¬ 
te che, oltre a una buona immaginazio¬ 
ne, occorrono elementari nozioni di 
geometria; in questo programma biso¬ 
gna conoscere l'equazione dell’ellisse 
in forma parametrica. Per chi non lo 
sapesse, tale equazione ha questa for¬ 
ma: 

X = A cos T 
Y = B sin T 

(A e B esprimono la forma dell'ellisse). 

T è un parametro, al variare del quale il 
punto di coordinate X,Y descrive ap¬ 


punto la nostra ellisse; se A è uguale a B 
allora la figura è una circonferenza. 
Nella tabella 2 potete trovare le equa¬ 
zioni parametriche di altre importanti 
curve. 

Provate a sostituire le ellissi del pro¬ 
gramma Random con altre figure, mo¬ 
dificando opportunamente le linee 130, 
140, 150, 160; non dimenticate di ag¬ 
giungere 126 alle X, e 87 alle Y per posi¬ 
zionare l'immagine a centro schermo. 
L’ultima immagine di figura 4 è stata 
ottenuta usando una parabola e una 
particolare curva data dalla sovrappo¬ 
sizione di moti armonici. Le equazioni 
sono: 

X= 120 x COSÌ+ 126 
e: 

Y = 87 x SIN i x SIN i + 87 
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XI = 120 x COS(i-b)xCOS(i-b) + 126 
Y1 = 87 x SIN(i-a) + 87 

Non solo la geometria può essere fonte 
di ispirazione per realizzare dei pro¬ 
grammi grafici, ma anche l'analisi mate¬ 
matica e funzionale ci può aiutare nel¬ 
l'intento. 

Le immagini più interessanti sono 
quelle che si ottengono analizzando le 
funzioni tridimensionali; qui ci occupe¬ 
remo di alcuni aspetti di queste ultime. 
Consideriamo una funzione a due va- 


Flgura 2 - L’Immagine è stala realizzata col pro¬ 
gramma del listato 3 usando uno step uguale a 
3. Ciò che va notato sono delle curve che si 
intravedono tra I fasci di rette. 


Tabella 2 - Equazione 



riabili del tipo Z = Sin F(X,Y). La funzio¬ 
ne seno ha un andamento periodico; 
essa taglia un numero infinito di volte il 
piano XY in posizioni che dipendono 
dalla generica funzione F(X,Y). Pensia¬ 
mo ora di guardare dall’alto una simile 
figura, dopo aver colorato le parti della 
funzione che si trovano nel semispazio 
delle Z positive (vedi figura 6). Il risultato 
di tale operazione è sorprendente: ne 
sono prova le immagini di figura 5. Il 
programma del listato 7 realizza quanto 
detto. In input bisogna inserire l’ampiez- 


in torma parametrica 
delie principali curve. 
Al variare di t tra 0 e 
2n, il punto di 
coordinate X e Y 
descriverà un luogo 
geometrico. I 
parametri r,a,b 
determinano la forma 
delia figura. 

Figura 1 - Esempio di 
immagini che si 
possono ottenere con 
il programma del 
listato 2. 
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Listato 3a. 


10 

REM | 

ma*! 

20 

INPU 

T "step tra 1 e 

30 

OUER 

0 

4.0 

POR 

:=0 TO 175 5 T EP 

50 

PLOT 

0,-0 

50 

DRflU 

pcc : 

70 

PLOT 

255,175 

30 

DRflU 

-255.-i 

■3 0 

PLOT 

255 : 0 

100 

DRflU 

-255.i 

110 

PLOT 

0 175 

120 

DRflU 

255 , -ì 

130 

NEXT 

1 


Listato 4. 


10 

REM ! 


20 

INPU' 

t “step tra 1 e 

30 

OUER 

0 

4.0 

FOR 

i=0 TO 254 STEP 

50 

PLOT 

127,37 

60 

DRflU 

i-127,87 

70 

PlOT 

127,37 

30 

DRflU 

127-i,-37 

90 

IF i 

>174 THEN GO TO 

100 

PLOT 

127,37 

110 

DRflU 

127,i-87 

120 

PLOT 

127,87 

130 

DRflU 

-127,37-i 

14-0 

NEXT 

i 


za entro la quale viene valutata la fun¬ 
zione Z = Sin (FX,Y). Poi inserite la fun¬ 
zione F(X,Y); a questo punto il program¬ 
ma valuta, nel campo di definizione, se 
la Z è positiva, cioè se Sin F(X,Y) è mag¬ 
giore di zero. Nel programma non si 
calcola direttamente il valore della fun¬ 
zione seno, poiché questo renderebbe 
ancora più lenta l’elaborazione. Qui in¬ 
vece, si sfrutta il fatto che Sin F(X,Y) è 
positivo se 2 Krt< F(X,Y) < 2Krt + ji, con 
K intero. 

Se si usa un'ampiezza piuttosto alta (e- 
sempio 100), entrano anche in gioco gli 
effetti dovuti agli errori di rappresenta¬ 
zione, e altri effetti collaterali descritti 
esaurientemente nell’articolo di Giulio 
Morpurgo su Personal Software 19. Chi 
desidera ottenere le immagini di quel¬ 
l’articolo, deve inserire la funzione 
X*X + Y*Y. 

Vi consigliamo di provare le seguenti 
funzioni con un'ampiezza pari a 20: 
X*X*-Y*Y ; X*X-Y*Y ; X*X/Y + 
Y*-Y*Y/X/X ; Y*Y*-Y-X*X ; 
Y<Y*Y-Y*Y-I-X*X. Il procedimento 
qui illustrato prende il nome di studio 
del segno di una funzione a due variabi¬ 
li: esso può essere esteso a qualsiasi 
funzione che ammetta X e Y come varia¬ 
bili indipendenti: comunque i risultati 
degni di nota si ottengono utilizzando le 
funzioni trigonometriche per la loro pe¬ 
riodicità. Finora abbiamo analizzato le 
caratteristiche e le tecniche che si usa¬ 
no per realizzare della grafica su com¬ 
puter; ora possiamo affinare le cono¬ 
scenze geometriche necessarie per rea¬ 
lizzare figure più complicate. Preceden¬ 
temente abbiamo esaminato delle sem- 


Flgura 4 - Esempio di funzionamento del programma Random. Le prime due immagini sono stale 
ottenute con II programma senza apportarvi modifiche, mentre le ultime due si sono ottenute 
variando il programma come Illustrato nell'articolo. 
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10 

20 

30 

4.0 

50 

50 

70. 


REM jjjpfcfiBH 


INPUT "step 
OUER 1 
FOR i=0 TG 
PLOT 126/57 
DRRUi 55*5 IN 


NEXT i 


<. l " ; s 
2 *P I STEP 
i,85*005 


plici curve espresse in forma parametri¬ 
ca; ora ne analizzeremo delle altre. Mol¬ 
te curve si possono esprimere in forma 
trigonometrica semplice; esse derivano 
dalla composizione di due moti armoni¬ 
ci (M.A.S.). 

Per moto armonico semplice si intende 
un moto la cui equazione è del tipo: 
X = A'*Sin (wT + f), dove A è l’ampiezza 
del moto e wT + f è la fase; w la velocità 
angolare, e f è la fase iniziale. 

La composizione di due M.A.S. agenti in 
direzioni perpendicolari di equazioni: 
X = A*Sin (wT + f) e Y = B^Sin (vT + c), 


Listato 5-11 
programma sfrutta 
sia gli errori di 
rappresentazione, 
sia l’effetto Over. 


Listato 6-11 programma serve per realizzare interessanti immagini 
in modo casuale. 

10 REM *********************** 
20 REM * DISEGNI RANDOM * 
30 REM *********************** 
4-0 REM 
50 REM 

50 RANDQMIZE 

70 INPUT "c o lo re s fondo " ; c 
50 BORDER c: PAPER C 
90 INPUT "colore inchiostro 

*100 INK C: CL5 

110 LET 3 = INT i.RND* 10000) : LET 
b =INT (RND*10000) 

120 FOR i=0 TO 2*PI STEP .1 
130 LET x =120*005 m+126 
140 LET y =50*5IN (i) +57 
150 LET y1=50*5IN (i-a)+37 
170 LET x1=120*005 (i-b)+125 

150 PLOT X , y 1 : DRAl-J x 1 -X , y -y 1 
190 NEXT i 

200 INPUT “vuoi una copia su st 
a ni panie ”;a$ 

• 210 IF a $ = "" THEN GO TO 230 
220 IF a $ ( 1) ="s" OR a$(l)="S" T 
MEN COPY 

230 INPUT “vuoi cambiare i colo 

ri ”; a $ 

240 IF a $ = "" THEN GO TO 250 
250 IF a $(1) ="s" OR a $(1) ="S" T 
HEN GO TO 70 
250 CLS GO TO 110 


Listato 7 - Il programma serve per studiare II segno di funzioni a 
due variabili del tipo: Z = Sin F(X,Y). 


10 

REM *********************** 

20 

REM * 

RETICOLO 

$ 

30 

REM *********************** 

40 

REM 



50 

REM 



60 

INPUT 

“colore sfondo c 


70 

BORDER 

C: PAPER C 


80 

INPUT 

"colore inchiostro 

; 

Q0 

INK c : 

CLS 

f 

00 

INPUT 

"funzione in x e y 

■ y > 

= "; LINE a $ 

(1 

10 

INPUT 

ampiezza reticolo 


-ICO) " ;g 

120 FOR i=0 TO 255 
130 LET x=i*2*9/255-g 
140 FOR j=0 TO 175 
150 LET y = .j *2*9/175-9 
150 LET r =UAL 3$/PI 
170 IF r-INT ( r ,'2) *2 > 1 THEN GO 
TO 190 
150 PLOT i,J 
190 NEXT j: NEXT i 
200 INPUT "vuoi una copia su st 
ampante “,b$ 

210 IF b$ = "" THEN STOP 
220 IF b$(1)="S" OR b$(l)="S" T 
HEN GO TO 240 
230 STOP 
240 COPY 

250 LPRINT “funzione " ; a $ 

250 LPRINT "ampiezza " ;g 


Figura 3 - Esempio di 
funzionamento del 
programma del 
listato 5. 



dà luogo a molteplici curve. Ad esempio 
X = A-*Sin (wT + O) e Y = B*Sin 
(WT + ti/ 2), rappresenta l’ellisse (vi ri¬ 
cordo infatti che Sin (wT + rc/2) = Cos 
wT). Alcuni esempi di moti armonici so¬ 
no illustrati in figura 8. Per realizzare 
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funzione x *x /y +y tv /a /x 
ampiezza 20 


quanto detto inserite il programma del 
listato 8. In input dovete fornire le veloci¬ 
tà dei due moti e la loro differenza di 
fase iniziale. Dopo aver osservato que¬ 
ste curve, potete utilizzarle nel program¬ 
ma Random per ottenere nuove e sofi¬ 
sticate immagini. Altre strutture geome¬ 
triche, da non sottovalutare, sono i poli¬ 
goni regolari, cioè quelli con tutti i lati 
uguali e inscrivibili in una circonferen¬ 
za. Il metodo per realizzarli è quello di 
sfruttare quest’ultima proprietà. Consi¬ 
deriamo infatti un poligono inscritto in 
una circonferenza; poiché esso ha tutti i 
lati uguali; anche gli angoli al centro del 
circolo sottesi dai lati stessi saranno u- 
guali. 

Le coordinate degli spigoli si possono 
quindi ricavare facilmente: detto R il 
raggio del circolo e N il numero dei lati 
del poligono si ha X = RACos (2rr/ N AK) 
Y = RASin (2 tt/N AK), con K che assume 
i valori 0, 1, 2....N-1. La quantità 2rr/N 


Listato 8 - Il 
programma serve 
per studiare le curve 
che si ottengono 
dalla composizione 
di due moti armonici 
agenti in direzioni 
perpendicolari. 


Figura 5 - Esempi di 
immagini che si 
possono ottenere con 
il programma del 
listato 7. 


10 REM 


£HB^rdJftrW.l?U»W8hm 


20 INPU ! "co l o r e s f o n do " ; c 
-I' 0 C : U R L 5 E R C : P H P E R C 
40 INPUT “co lore inchiostro 


50 INK c CLS 

50 INPUT " v £ l o cita ' p r i ut o moto 

“, w 1 

T0 INPUT v e i. o c i t a ' s e c o n d o m o t 

0 ‘ ‘ W £ 


80 

INPUT dif f e renz 

a d i 

fase 

90 

LET S t = .01 



_ 100 

IF mi*i.i.i2 >30 THEN 

LET 

s t =s t 

" 110 

“ U P’ 1=0 T U c! * P‘ I 

STEP 

s t 


120 LET x=37*5IN (Wl*i)+l£S 
130 LET y=87*5IN ti*w£+f)+87 
14-0 PLOT X j y 
150 NEXT i 

ISO INPUT ‘vuoi una copia su st 
ampante ",a$ 

170 IP a$=“" THEN 00 TO 190 
130 IF a $ = "£" OR a*="S" THEN CO 
PY 

190 CLS 
200 GO TO SO 


10 REM *********************** 
20 REM * POLIGONI * 

30 REM *********************** 
4-0 REM 
50 REM 

50 INPUT "colore sfondo c 

70 BQRDER C PAPER C 

30 INPUT "colore inchiostro "; 

90 INK C: CLS 
100 LET r =30 

110 input "n lati ";n 
120 DIM a ( n +1,2 ) 

130 LET X =120 : LET y=85 
14-0 LET C =1 

150 FOR i =0 TO 2*PI STEP 2*PI/n 
150 LET a(C , 1) =X +r*C0S i 
170 LET a ! c ., 2) =y+r *SIN i 
130 LET C = C +1 
190 NEXT i 

200 LET a <n + 1,1)=a(1,1) 

210 L ET a(n +1,2 ) = a r1 , 2) 

220 PLOT a (1,1) . a (1.2) 

230 FOR i=2 TO n+1 
2 4- 0 D R h (-, a ri , 1 ) — a ( i — 1,1 ; , a ri , £.' 
— a ( i “1, cu ■ 

250 NEXT a 

250 INPUT “vuoi una copia su st 
ampante ";a$ 

270 IF a $ = " " THEN GO TO 290 
230 IF 3 $(1) ="s" OR a $ (1) ="S" T 
HEN COPY 
290 CLS 
300 CO TO 110 


Listato 9 - Il 
programma serve 
per realizzare 
poligoni con 
qualsiasi numero di 
lati. Con semplici 
modifiche è possibile 
ottenere immagnl 
particolari. 













esprime l’angolo al centro in radianti. Il 
programma del listato 9 esegue quanto 
detto. 

Noto questo procedimento, si possono 
modificare gli argomenti delle funzioni 
trigonometriche al fine di ottenere im¬ 
magini insolite. Provate a modificare la 
linea 160 nel seguente modo: 

160 LETa(c,1) = x + r-*COS (i + c*PI) 



In questo modo si torce il poligono su 
ogni lato rispetto all’asse Y; provate poi 
a inserire un numero di lati uguale a 80 
o anche più, otterrete l'immagine di fi¬ 
gura 9. Se si torce contemporaneamen¬ 
te il poligono anche sull’asse X, allora si 
ottengono delle figure stellari; per otte¬ 
nere ciò, dovete modificare anche la 
linea 170 nel seguente modo: 

170 LET a(c,2) = y + r*SIN (i + c-*PI) 

Per concludere, vogliamo proporvi la 


Figura 6 - 

a) Disposizione degli assi x,y,z In un sistema di 

riferimento cartesiano. _ 

b) Grafico della funzione Z-Sin v /x ! + y 1 . 

c) Se si colorano le creste positive del grafico 
del punto d) e si guarda dall'alto, si può vedere 
l’immagine c). 




versione computerizzata di un famoso 
gioco grafico chiamato Spirograf. Il gio¬ 
co si basa su due circonferenze dentel¬ 
late una internamente e l'altra, più pic- 


Figura 7 - Esempi di 
output su stampante 
del programma del 
listato 8. La velocità 
del primo moto è 5, 
quella del secondo è 
3, mentre la 
differenza di fase è 0. 


Figura 8 - Esempi di 
moti armonici 
composti. 5 
rappresenta lo 
sfasamento tra i due 
moti, mentre W1 e W2 
esprimono le velocità 
angolari dei moti. 
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cola, esternamente; quest’ultima pre¬ 
senta dei forellini a determinate distan¬ 
ze dal centro. Si fissa il cerchio grande e 
vi si pone all'interno il cerchio piccolo; 
poi si inserisce una penna in un foro e lo 
si fa ruotare. L'immagine che si ottiene 
sul foglio sottostante è stupefacente. 
Per realizzare un simile meccanismo sul 
vostro Spectrum, inserite il programma 
del listato 10. In input occorre inserire 
l'ampiezza del cerchio grande e del cer¬ 
chio piccolo e la posizione della penna, 
cioè la distanza di questa dal centro del 
cerchio piccolo. 

Anche in questo programma si è evita¬ 
to l'uso delle relazioni trigonometriche 
durante l'elaborazione dell'immagine; 
qui i valori di seno e coseno sono inizial¬ 
mente memorizzati in due vettori a() e 
b(). Il tempo di questa operazione è di 



Figura 9 - La prima figura esprime la torsione di un poligono di 100 lati su se stesso un centinaio di 
volte; la seconda immagine è una stella a 24 punte, ottenuta torcendo II poligono sui due assi nel 
modo illustrato neH'artlcolo. 



Figura 10 - Struttura 
geometrica del 
programma 
Spirograf. 


circa 40 secondi, ma lo si riguadagna 
ampiamente durante la realizzazione 
deH’immagine; infatti è più veloce l’ac¬ 
cesso ad un vettore, piuttosto che il cal¬ 
colo di un seno. Per capire il funziona¬ 
mento del programma, vi consigliamo 
di osservare attentamente la figura 10. 
Posta a uno la velocità di rotazione del 
punto O, la velocità angolare del cer¬ 
chio piccolo in rotazione su se stesso è 
pari a: w = r/rl. La posizione del punto O 
istante per istante è data da: 
xo = (r-rl)-*Cos t, yo = (r-rl)-A-Sin t. 

La posizione del punto P (dove P è la 
posizione della penna), rispetto al pun¬ 
to O è data da: xp = p-A-Cos (w*t), 
yp = p-A-Sin (x-A-t). 

Infine, la posizione di P rispetto a C si 


Listato 10-11 
programma simula 
sul computer II gioco 
dello Spirograf. 


liZ> REM *********************** 
20 REM * SPIROGRAF * 

30 REM *********************** 
4-0 REM 
50 REM 

SO GQ SUB 4-00 

70 input “colore sfondo "; c 

SO BORDER c: PAPER C 

so input "colore inchiostro ", 

r 

'100 INK C: QLS 

110 INPUT "raggio cerchio grand 
e “ ; r 

120 IF r :> 126 THEN GO TO 110 
ISO INPUT "raggio cerchio picco 
lo "tri 

14.0 IF r 1 > = r OR ri >85 THEN GO T 
0 130 

150 INPUT "posizione penna “;p 
ISO IF rl-r+p>67 THEN GO TO 150 
170 LET roar-rl 

ISO LET wl=r/ri 

ISO LET n=2 

200 LET a =r : LET b = rl GO SUB 3 

20 

210 FOR t=0 TO 180*n 
220 LET a = t-INT (t/359)*359: LE 
T b=wi*t-INT i w1* t/35 9 ) * 3 5 9 
230 LET x=ro*a (a + 1)+p*a (b+1)+12 


240 LET y =ro*b (a + 1)+p*b (b + 1) +S5 
250 PLOT X, y 
260 NEXT t 

270 INPUT "vuoi una copia su st 
ampan te " ; a $ 

2S0 IF a $ = " " THEN GO TO 300 
290 IF a $ ( 1) =“S" OR a $ = "S" THEN 
COPY 


300 CLS 
310 REM 
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Seguito listato 10. 


320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

atti 

430 

440 

450 

460 

470 


IF wl-INT mi 1=0 THEN RETURN 
LET K =a-INT (a/b) *b 
LET K=INT (K+.5) 

LET a =b: LET b = K 

1F K<>0 THEN GO TD 330 

LET n=2*'rl/a 


RETURN 
REM 



( 360 ) 


DIM b(360) 

PRINT 8l; M attendi un 

roo " 

FOR i=0 TD 359 

LET a ( i+1) =5IN (i*PI/180) 

LET b(i+1)=C0S (i*P1/180) 

NEXT i 

RETURN 


Figura 11 - Esempio 
di funzionamento del 
programma del 
listato 10. Per 
ottenere la prima 
immagine dovete 
inserire per il cerchio 
grande II valore 80, 
per quello piccolo il 
valore 25; infine, per 
la posizione della 
penna, Il valore 10. 

Per la seconda 
immagine I numeri 
da inserire sono 
rispettivamente: 80, 
27, 25. Per la terza: 
80,18,15. Perla 
quarta: 80, 64, 64. 



ottiene nel seguente modo: 

• x= (r-rl)*-Cos t + p-*Cos (w*t); 


• y=(r-rl)-*Sin t +p-*Sin (w*t). 

Per rendervi conto delle enormi possibi¬ 


lità grafiche del programma, osservate 
le immagini di figura 11. ■ 


SINGOLARE VERTENZA GIUDIZIARIA 

PROMOSSA 

DAL GRUPPO EDITORIALE JACKSON 


Duro colpo ai «pirati del 
software». Come riporta il 
Corriere della Sera del 24 
Settembre il pretore Omero 
Sorrentino, con un 
provvedimento d’urgenza, ha 
proibito a una società italiana di 
continuare la fabbricazione di 
un programma che avrebbe 
letteralmente imitato quello 
originariamente prodotto dalla 
multinazionale Mikro Gen e 
messo in commercio, con tanto 
di regolare licenza, dal Gruppo 
editoriale Jackson. 

Sono stati sequestrati 
numerosi esemplari del 


videogioco «plagiato», presso la 
società distributrice e presso la 
sede della ditta produttrice. 

Questi i fatti. Il Gruppo 
Editoriale Jackson, si è rivolto 
alla magistratura per tutelare i 
propri diritti, che, secondo il 
ricorso, sono stati violati da una 
ditta concorrente, Ja società 
«SIPE» con sede legale in via 
Francesco Koristka e sede 
effettiva in via Ausonio 26. 

In sostanza, la Jackson si è 
decisa a tutelarsi in quanto la 
ditta concorrente aveva messo 
in circolazione un album 
contenente sedici video giochi al 


prezzo di 12 mila lire, contro 
una pubblicazione originale 
contenente un videogioco dal 
prezzo al pubblico di 10 mila 
lire. Una beffa quindi per chi ha 
prodotto e commercializzato 
programmi originali e 
costosissimi, garantiti dal 
marchio di autenticità che tutela 
il software. 

Ma non si tratta di un’iniziativa 
isolata perché su questo 
problema il Gruppo Editoriale 
Jackson sta per lanciare 
un’ampia campagna di 
sensibilizzazione del mercato 
italiano. 















SERVIZIO SOFTWARE 



Bit e Personal Software propongono ai 
propri lettori i dischi o le cassette dei 
programmi pubblicati. Uso e descrizione 
dei programmi si trovano sui rispettivi 
numeri delle riviste. 




Bit n* 

Programma 

Sistema 

Codice 

Supporto 

38 

Gioco della scimmia 

VIC 20 

V1381 

Cassetta 

38 

Spaccamattoni 

Planel 

Apple II 

AP382 

Disco 

42 

Apple-Chef 

Apple II 

AP422 

Disco 

42 

Provanflessi 

VIC 20 

VI42I 

Cassetta 

45 

Tiny FORTH 

Apple II 

AP452 

Disco 

45 

Ali Babà 

ZX Spectrum 

SP451 

Cassetta 

46 

Forzaquattro 

Apple II 

AP462 

Disco 

48 

Simulavolo 

ZX Spectrum 

SP481 

Cassetta 

48 

Memory Alfa IV 

C 64 

C6481 

Cassetta 

49 

Scorpion 

Apple II 

AP492 

Disco 

50 

Fp-PIot 

Apple II 

AP502 

Disco 

50 

Prima e Terza 

ZX Spectrum 

SP501 

Cassetta 

51 

Magicatalog 

Apple II 

AP512 

Disco 

53 

Parlila a golf 

VIC 20 

VI531 

Cassetta 

53 

Analisi numerica 

C 64 

C6531 

Cassetta 

53 

PL/Bit: il compilatore 

Apple II 

AP532 

Disco 

54 

Costellations 

Apple II 

AP542 

Disco 

54 

Come polarizzare 
i transistor col C 64 

C 64 

C6541 

Cassetta 

58 

Memory Omega I 

C64 

C6582A 

Disco 

58 

Copy disk per C 64 

C 64 

C6582B 

Disco 

59 

Checksum 64 

C 64 

C6592 

Disco 

59 

Checksum 64 

C 64 

C6591 

Cassetta 

59 

Data-Bank 

ZX Spectrum 

SP591 

Cassetta 

60 

Life HCR 

Apple II 

AP602 

Disco 

60 

Tutti pittort 

C 64 

C6601 

Disco 

60 

Difesa della Terra 

C 16 

C1601 

Cassetta 

60 

Lost on thè pack 

Sega 

SE601 

Cassetta 

60 

Setdata e Wordproc 

ZX Spectrum 

SP601 

Cassetta 

60 

11 Barone Rosso 

TI99/4A 

TI601 

Cassetta 

60 

Word processor 

C 64 

C6602 

Disco 

60 

Othello 

vie 20 

V1601 

Cassetta 

61 

Disegno di mobili 
componibili 

e 16 

CI611 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6611 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6612 

Disco 

61 

Disegnare in alla risoluzione 

ZX Spectrum 

SP611 

Cassetta 

61 

Pnnttng music 

TI99/4A 

TI611 

Cassetta 

61 

Musica facile 

Sega 

SE611 

Cassetta 

61 

VIC-Calc 

VIC 20 

V16I1 

Cassetta 

62 

Gestione conto corrente 

C 64 

C6622 

Disco 

62 

Gioco della tombola 

TI99/4A 

TI621 

Cassetta 

62 

Aspe: lo Spectrum 
contro la cane 

ZX Spectrum 

SP621 

Cassetta 


Bit n* 

Programma 

Sistema 

Codice 

Supporto 

63 

Operazioni in pagina grafica 

Apple U 

AP632 

Disco 

63 

Grafici a barre verticali 
affiancate 

C 16 

C1631 

Cassetta 

63 

Contabilità casalinga 

C64 

C6632 

Disco 

63 

Disegnare sullo schermo 
con un MSX 

MSX 

MS631 

Cassetta 

63 

Over BASIC 

ZX Spectrum 

SP631 

Cassetta 

63 

Le otto Regine 

TI99/4A 

TI631 

Cassetta 

63 

Egitto 2000 

VIC 20 

VI631 

Cassetta 

64 

Roller 

Apple II 

AP642 

Disco 

64 

Come sistemiamo 
ì mobili’ 

C 16 

CI641 

Cassetta 

64 

Titolazioni simulate 

C 64 

C6642 

Disco 

64 

Detektor 

MSX 

MS641 

Cassetta 

64 

Color Compositor 

Sharp MZ-700 

SH641 

Cassetta 

64 

Computer music 

TI99/4A 

TI641 

Cassetta 

65 

Integer Compiler 

ZX Spectrum 

SP651 

Cassetta 


P.S. n* 

Programma 

Sistema 

Codice 

Supporto 

3 

La carta del cielo 

Collisione 

Apple II 

AP032A 

Disco 

4 

Interi in precisione multipla 
Grafica 3D 

Apple II 

AP042A 

Disco 

5 

Pretty printer 

Shape table 

Apple II 

AP052A 

Disco 

7 

Data base modulare 

Apple II 

AP072A 

Disco 

14 

Tool-Kit 

C 64 

C6141A 

Cassetta 

19 

Type-Writer 

VIC 20 

VI 192A 

Disco 

20 

Scopa 

C 64 

C6201A 

Cassetta 

30 

Geo-Race 

ZX Spectrum 

SP301A 

Cassetta 

31 

Progetto aeromodello 

MSX 

MS311 

Cassetta 

31 

Scopa a tre carte 

Apple II 

AP312 

Disco 

31 

Grand Pnx 

C 64 

C6312 

Disco 

31 

Sprite 

ZX Spectrum 

SP3I1 

Cassetta 

31 

Box 

C 16 

C1311 

Cassetta 


Tutti 1 dischi • li cassette del programmi sono in vendita a L. 15.000 
ciascuno. 


Per richiedere i programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare il seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 

-ixg. 


Inviatemi i seguenti nastri e/o dischi con i pro¬ 
grammi pubblicati su Bit - Personal Software 


§ 


GRUPPO EDITORIALE JACKSON 


r„d. 1 1 1 1 1 1 1 

aL. 

11151010101 

Cognome 

c„h 1 1 1 1 1 1 1 

aL. 

i i i i i i 

Nome. 

fimi 1 1 1 1 1 1 1 

aL. 

i i i i i i 

Indirizzo.. 

1 1 1 1 1 1 1 

aL. 

i i i i i i 

CAP. 

+ SPESE POSTALI 
(contributo fisso) 

i -l3iQiPlO,i 

Città. 


TOTALE L. I_I_I_I_I_I 

che pagherò al postino alla consegna del pacco 


Firma.. 















































Un buco 
nell’acqua 

MSX ed altri computer 
con grafica ad alta risoluzione 


di Sergio Borsani 



Figura 1 - Immagine tridimensionale della superficie di un liquido ove siano presenti onde concentri¬ 
che. Per ottenerla sono sufficienti una funzione matematica, un computer dotato di grafica ad alta 
risoluzione ed una dozzina di istruzioni In BASIC. 


N ella brochure del Philips V G 
8000 MSX fa bella mostra un 
disegno tridimensionale che 
riproduce le onde che si for¬ 
mano sulla superficie dell'acqua quan¬ 
do, ad esempio, vi buttiamo un sasso. 
Le onde hanno la forma di cerchi con¬ 
centrici ed un’ampiezza che va dimi¬ 
nuendo dal centro alla periferia o, come 
si dice, sono smorzate. Una tale imma¬ 
gine, oltre che ad essere bella da vede¬ 
re, costituisce un'autentica sfida per 
chi, non privo di qualche nozione di 
matematica, desidera dare libero sfogo 
alla propria creatività con l’aiuto di un 
computer. L'idea è ancor più stimolante 
se si pensa che in BASIC sono sufficienti 
una dozzina di istruzioni o poco più e 
che, a parte la conoscenza dell'equa¬ 
zione delle oscillazioni smorzate, basta¬ 
no elementari considerazioni geometri¬ 
che e, al più, l'applicazione del Teorema 
di Pitagora, Se avete il gusto dell'avven¬ 
tura non leggete subito le spiegazioni, 
armatevi di carta e penna e tentate di 
risolvere il problema, cioè di ottenere un 
programma in BASIC in grado di gene¬ 
rare qualcosa di simile alla figura 1. Per 
chi non avesse sotto mano un testo a- 
deguato da consultare si suggerisce 
che l'equazione delle oscillazioni smor¬ 
zate è: 

y = Ae" sin(wt-Fa) 

dove A è l’ampiezza massima delle o- 
scillazioni, e = 2,7182818, -jt è un espo¬ 
nente negativo che descresce con il 
tempo, (wt + a) è un angolo variabile 
espresso in radianti. Le onde sulla su¬ 
perficie di un liquido si possono imma¬ 
ginare generate dalla rotazione della 
curva piana descritta in termini mate¬ 
matici dalla precedente equazione. 

Soluzione proposta 

L'equazione (vedi figura 2) che descri¬ 
ve un’onda piana smorzata può essere 
così definita: 

DEF FNW(X) = K-FIX(ET(-X/80) 
★COS(X/8)-*60) 

Essa è riconoscibile tra le parentesi do¬ 
po la funzione Fix; il fattore correttivo K 
serve ad ottenere una traslazione del 
sistema di riferimento delle coordinate 
che altrimenti ha la sua origine nell'an¬ 
golo in alto a sinistra dello schermo. La 
presenza della funzione trigonometrica 

40 


Cos al posto di Sin dipende dal valore 
iniziale dell'angolo che ne costituisce 
l'argomento. 

Facendo variare X con un ciclo For- 
Next si ottiene nello stesso tempo la 
variazione dell'esponente di E e dell'an¬ 
golo della funzione Cos. Naturalmente 
è arbitrario dividere X rispettivamente 
per 80 e per 8, dipende dalle caratteristi¬ 
che che si vogliono attribuire alle onde. 
Precisamente l'esponente di E influenza 
la velocità con la quale vengono smor¬ 
zate le onde, così, se si scrivesse 
E|(-X/50), le onde si smorzerebbero 


maggiormente allontanandosi dal cen¬ 
tro, cosa che potrebbe verificarsi in un 
liquido più viscoso; il modo in cui viene 
fatto variare l’angolo influenza invece la 
lunghezza d’onda: se scriviamo 
Cos(X/6) diminuisce la lunghezza d'on¬ 
da e sul video si possono rappresentare 
più onde; al contrario Cos(X/10) au¬ 
menta la lunghezza d'onda. Anche la 
costante 60 nella funzione Fnw (X) è 
arbitraria e può essere cambiata a pia¬ 
cere. Essa rappresenta la massima am¬ 
piezza delle onde; infatti, quando X = 0 
è Et(0) = 1 e Cos(0) = 1, così si ha 







































Un buco nell'acqua 




Figura 2 - Una sezione radiale della superficie è un’onda piana smorzala Figura 3 - Variando le costanti che compaiono nella funzione Fnw(X) si 
che In BASIC può esser definita con la funzione Def Fnw(X) = K Flx(Ef ottengono diversi profili d’onda. 

( X/80)*Cos(X/8)* 60). 


un'ampiezza di 60 pixel sopra il piano di 
equilibrio; in seguito, aumentando X di¬ 
minuisce il valore dell’espressione 
Ef(-X/80) e le onde si smorzano. Se si 
desidera cambiare le costanti nella fun¬ 
zione Fnw(X) è consigliabile farlo con 
una certa gradualità e magari una per 
volta per studiarne gli effetti (figura 3). 

Per ottenere un'immagine prospettica 
si deve immaginare di tagliare la super¬ 


ficie prodotta dalle onde con piani verti¬ 
cali paralleli, come si taglia normalmen¬ 
te il pan carré. Le sezioni che così si 
ottengono devono poi venir rappresen¬ 
tate sul video a diverse altezze, in modo 
da dare l'impressione della profondità. 
Non è una vera prospettiva quella che si 
ottiene ma ne è una buona approssima¬ 
zione (vedi figura 4). Il primo problema è 
quindi costituito dal modo in cui ottene- 

Flgura 4- 
L’immaglne 
tridimensionale si 
ottiene sezionando 
con plani paralleli la 
superficie come si 
taglia usualmente il 
pan carré. Le "fette”, 
per così dire, 
ottenute, vengono 
disposte a diverse 
altezze per dare un 
effetto prospettico. 


re le varie sezioni parallele. Ma non è il 
solo. Le sezioni non devono essere tra¬ 
sparenti, ma quelle dei primi piani devo¬ 
no ricoprire parzialmente quelle più lon¬ 
tane dall’osservatore; in altre parole le 
curve che costituiscono il margine su¬ 
periore, e quindi il profilo del liquido, 
non devono intersecarsi tra di loro. Per 
la prima domanda, più di ogni altra 
spiegazione, varrà l’esame della figura 
5. Per ogni sezione il video viene scandi¬ 
to punto per punto da sinistra a destra e 
di ognuno di questi si calcola la distan¬ 
za dal centro applicando il Teorema di 
Pitagora. D2 è il quadrato della distan¬ 
za del piano di sezione dal centro, L2 il 
quadrato della distanza di un punto 
della sezione dal punto di tangenza di 
questa con uno dei cerchi concentrici, X 
è la distanza dello stesso punto dal cen¬ 
tro e Fnw(X) è la distanza della superfi¬ 
cie del liquido dal piano di equilibrio. 
Tutte le misure sono espresse in pixel. 

Per la seconda questione, cioè per im¬ 
pedire che le curve si intersechino, si è 
ricorsi alla variabile con indice M(j) nel¬ 
la quale si memorizzano tutti i minimi 
valori raggiunti dai 256 punti esistenti 
sullo sviluppo orizzontale del video. 

Dal momento che l’origine del sistema 
di riferimento è posta superiormente, un 
minor valore dell’ordinata Y significa 
che il punto è segnato più in alto. Si fa 
quindi in modo di tracciare solo punti 
che cadono al di sopra di quelli già 
presenti sul video. La variabile M(j) vie¬ 
ne inizializzata al valore 192 che corri- 
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sponde al bordo inferiore dello scher¬ 
mo. La figura 6 mette in evidenza una 
particolare sezione. Ed ora una nota 
dolente: il programma è di lenta esecu¬ 
zione! Per creare l'immagine devono es¬ 
sere calcolate le coordinate di circa 
6.400 punti e per ognuno di essi si devo¬ 
no eseguire diverse operazioni tra cui 
elevamenti a potenza, calcoli di radici, 
di funzioni esponenziali e trigonometri¬ 
che. Questo è il motivo per cui è sconsi¬ 
gliabile aumentare il numero delle se¬ 
zioni anche se la definizione dell'imma¬ 
gine ne trae dei vantaggi (la qual cosa 


Figura 5 - Le sezioni vengono calcolate punto 
per punto. Determinata per una data ascissa, la 
distanza dal centro X, la funzione Fnw(X) resti¬ 
tuisce l'ordinata relativa al plano d'equilibrio 
del liquido. 


Figura 6 - Eseguendo I calcoli per tutti 12S6 punti 
esistenti sullo sviluppo orizzontale del video, si 
ottiene II profilo di una sezione. La stampa pro¬ 
cede dal plani prossimi all'osservatore a quelli 
più lontani evitando che le linee possano Inter¬ 
secarsi. 


Listato 1 - Il breve programma grafico per MSX. 

10 REM *** onde superficie!i *** 

20 DEFI NT M, J , K , V I> I M II <255) 

30 E=2,7182818# 

40 DEF FNH<X)=K-FIX<E A <-X/80J *C0S< X/8 > *6 
0) 

50 FOR .J = 0 T0 255 M<J>*192 : NEXT J 

60 SCREEN 2 COLOR 1,4,4 

70 FOR K=180 TO 0 STEP -8 

80 D2 a (K14/3-128 > '2 

90 X = S0Rc D2+16384) V=FNW<X> 

100 If V<I1<0> THEN 11<0>*V ELSE Y = M<0> 

110 PSE T < 0,Y) 

120 FOR J = 1 TO 255 ■ L2=<J-128; A 2 
130 X=SQR(D2+L2> : Y a FNW<X> 

140 IF V<M(J) THEN N<J> = Y ELSE Y = M<J> 

150 L1NE<J-1,M(J-1))-(J,Y) 

160 NEXT J : NEXT K 
170 GOTO 170 


Listato 2 • L'adattamento per M20. 

10 REM *** onde superficiali *** 

20 REM adattamento per Olivetti H20 
30 DEFINT N : DIN H(511> : CL5 : E=2,7182818£ 
40 DEF FNU(X) =K+INT(E A (-X/100)*C05(X/18)*80) 
50 FOR J=0 T0 511 : M(J)=-1 : NEXT J 
60 FOR K=8 T0 250 STEP 8 : D2=(K*2-250) A 2 
70 X=S8R(02+65025!) : Y=FNW(X) 

80 IF Y<M(0) THEN Y=H<0) ELSE M(0)=Y 
90 PSET(OiY) 

100 FOR J=1 T0 511 : L2=(J-255) A 2 
110 X=S8R(D2+L2) : Y=FNW(X) 

120 IF Y<M(J) THEN Y=H(J) ELSE h(J)=Y 
130 LINE(J-l,H(J-1))-(J,Y) 

140 NEXT J : NEXT K 
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si ottiene diminuendo lo step nel ciclo 
For-Next controllato dalla variabile K). Il 
programma ha un “tappo” che lo fa 
restare nel modo grafico ad alta risolu¬ 
zione: per sbloccarlo premete contem¬ 
poraneamente i tasti Ctrl e Stop. 

Descrizione del listato 

20 - Vengono definite intere alcune va¬ 
riabili e viene dimensionato il vettore 
che deve memorizzare le posizioni più 
alte dei punti già presenti sullo scher¬ 
mo, per evitare che le linee si intersechi¬ 
no. 

30 - E è il valore approssimato del Nu¬ 
mero di Neper, base dei logaritmi natu¬ 
rali. 

40 - La funzione di un'onda piana smor¬ 
zata. Il parametro K determina l'altezza 
(ordinata) alla quale viene stampata la 
sezione sul video. 

50 - L'intero vettore M(j) viene inizializ- 
zato al valore 192 che rappresenta l’or¬ 
dinata dei punti che stanno nella base 
inferiore dello schermo. 

60 - Si entra nel modo grafico 1 (alta 
risoluzione) e si definiscono i colori di 
foreground, di background e del bordo. 
70 - Il ciclo K determina il numero delle 
sezioni e la loro altezza sullo schermo. 
80 - D2 è il quadrato della distanza (in 
pixel) del piano di sezione dal centro. 

90 - X è la distanza di un punto di ascis¬ 
sa zero dal centro; y è l’altezza della 
superficie del liquido in un punto, relati¬ 
vamente al piano di equilibrio. 

100 - Controllo per non stampare un 
punto "nascosto”, cioè al di sotto di un 
altro già stampato sulla stessa colonna. 
110 - Si stampa il punto di ascissa zero 
di una data sezione. 

120 - Ciclo per il calcolo dei punti che 
costituiscono una sezione, L2 è il qua¬ 
drato della distanza di un punto dalla 
linea mediana dello schermo. 

130 - Ripete il calcolo della linea 90 per 
tutti i punti della sezione, con valori delle 
ascisse da 1 a 255. 

140 - Controllo per evitare che le sezioni 
si intersechino. 

150 - Si usa l’istruzione Line, invece di 
Pset, per ottenere una linea continua 
anche per inclinazioni superiori a 45°. 
160 - Chiusura dei cicli. 

170 - "Tappo” per restare nel modo 
grafico. In sua assenza si torna auto¬ 
maticamente nel modo testo. ■ 



Arrivano i Quaderni Jackson, 
tanti volumi monografici per co¬ 
noscere bene il personal computer 
e l'informatica. 

Nei quaderni Jackson c'è tutto 
quello che è importante sapere 
sui computer, la programmazio¬ 
ne, i linguaggi, il software, le 
applicazioni e i nuovi sviluppi 
deN'informatica. 

Quaderni Jackson: l'informa¬ 
tica a tutti i livelli, in una collana 
aperta, pratica, essenziale, aggior¬ 
nata. 

L'informatica tascabile per chi 
vuole saperne di più e compiere 
così un salto di qualità nel mondo 
di oggi e di domani. 

Ogni mese, 2 volumi. 


Volumi già pubblicati: 

Gianni Giaccaglinì 

"Vivere col Personal Computer" 

Paolo Bozzolo 

"Dentro e fuori la scatola" 

Enrico Odetti 

“Ed è subito BASIC Voi. I" 

"Ed À subito BASIC Voi. Il" 

Paolo Capobussi 
e Marco Giacobazzi 

"A ciascuno il suo Personal” 

Fulvio Francescani 
e Fernando Paterlini 

“To do or not to do” 

In edicola, 
a sole lire 6.000. 


GRUPPO 
EDITORIALE 
JACKSON 

SAN FRANCISCO LONDRA MILANO 
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esasperante lentezza nel¬ 
l'elaborazione dei dati, è 
nemica della realizzazione 
di programmi grafici e mu¬ 
sicali con il TI99. Ma questo brano musi¬ 
cale sembra uscire da un computer ben 
più potente, tale è la sua velocità di 
esecuzione. 

Caro Humphrey, 

fra mille tributi possibili questo è, sicu¬ 
ramente, il più impensabile. Sono pas¬ 
sati quasi trent'anni dalla tua scompar¬ 
sa e di te ci si ricorda ancora: un cap¬ 
pello, un lungo impermeabile con il ba- 



Bogey Boogie 


Un piacevole brano musicale 
in onore di Humphrey Bogart 

di Piero Chianura 


Listato 1 - L’allegro motivo in onore di Humphrey Bogart. 


10 REM *** BOGEY BOOGIE *** 

20 REM *** Chianura Piero *** 

30 CALL CLEAR 
40 CALL SCREEN(2) 

50 PRINT TAB (18) ; " PQRST" : TAB (18) 
; "U VW" : TAB (18); " X YZ. " : TAB (18) 
;" ;=8 (9w M :TAB(18);"xy )zt":TAB(1 
8) ;" (vT~s" :"qqqqqqqqqqqqqqqqqqq 
qqqqqqqqq" 

60 PRINT " BOGEY BOOGIE": 

di Chianura Piero"::"qqqqqq 

qqqqqqqqqqqqqqqqqqqqqq": : : : 

70 CALL CHAR(128,"0103071088473E 
") 

80 CALL CHAR(129,"FFE00F3FFFFF05 
09") 

90 CALL CHAR(130,"F83E83F0FCFFF9 
E9") 

100 CALL CHAR(131, "000080000080E 
03") 

110 CALL CHAR(132,"0000070003000 
1 02") 

120 CALL CHAR(133,"09088621F0FF0 
F31 ") 

130 CALL CHAR(134,"C9Fl02FC00FFA 
C 2 8 " ) 

140 CALL CHAR(135,"0C030C1") 

150 CALL CHAR(136,"0000010000010 
70C" ) 

160 CALL CHAR(137,"1F7CC10F3FFF9 


F9E" ) 

170 CALL CHAR(138,"FF07F0FCFFFFA 
09") 

180 CALL CHAR(139,"80C0E00811E27 
C") 

190 CALL CHAR(140,"30C03008") 

200 CALL CHAR(141 ,"9C8F403F00FF3 
514 ") 

210 CALL CHAR(142,"901061 830FFFF 
08C" ) 

220 CALL CHAR(143,"0000E000C0008 
04") 

230 CALL CHAR(144,"0000000102040 
81 ") 

240 CALL CHAR(145,"lF20408") 

250 CALL CHAR(146,"EOI 0OC0201 ") 

260 CALL CHAR(147,"0000000080402 
01 ") 

270 CALL CHAR(148,"0000000000001 
82C") 

280 CALL CHAR(149,"2040808080808 
04") 

290 CALL CHAR(150,"0809060001 030 
70F") 

300 CALL CHAR(151,"DC3C7CF8F0E0C 
08") 

310 CALL CHAR(152,"2020201010080 
804") 

320 CALL CHAR(153,"00000000030F3 
FFE" ) 

330 CALL CHAR(154,"132140C0C08") 
340 CALL CHAR(155,"0O00E07O30383 
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TEXAS TI99/4A 

vero alzato ed una sigaretta accesa (in pelato completamente, se sotto l'imper- 1650-1820 - Suona le parti 5-7. 

ombra, per giunta). meabile eri nudo e se fumavi una siga- 1830-1980 - Suona la parte 8. 

Meglio così! Che siano pochi intimi a retta "strana"! 


1990-2160 - Suona le parti 9-11. 

ricordare la tua scarna bellezza ed il tuo 


2170-2320 - Suona la parte 12. 

mutevole comportamento, fra il roman- 


2330-2490 - Suona la parte 13. 

tico ed il cinico, l’insultante e l'acuto... Analisi del listato 

2500-2660 - Suona le parti 14-16. 

Invano, alla continua ricerca di nuovi 


2670-2720 - Suona la parte 17. 

modelli, si guarda al passato. Spesso, si 10-40 - Presentazione ed annerimento 2730-2880 - Suona la parte 18. 

trova solo un abbigliamento. schermo. 


2890-3050 - Suona la parte 19. 

Oggi, evidentemente, un mito non regge 50-60 - Prestampa Bogart e intestazio- 3060-3220 - Suona le parti 20-22. 

il confronto con i propri difetti e cade ne. 


3230-3280 - Suona la parte 23. 

presto. 70-220 - Definizione caratteri disegno 3290-3440 - Suona la parte 24. 

Che fortuna, per un uomo come te, occhi. 


3450-3600 - Suona la parte 25. 

essersi spogliato di impermeabile e cap- 230-520 - Definizione caratteri disegno 3610-3760 - Suona la parte 26. 

pello, aver gettato la sigaretta! La socie- Bogart. 


3770-3920 - Suona la parte 27. 

tà del divismo ha raccolto e tenuto tutto. 530-540 - Schiarimento schermo. 3930-3980 - Suona le parti 28-33. 

Ancora: che fortuna! Nel tremila, nessu- 550-720 - Stampa occhi. 3990-4140 - Suona la parte 34. 

no si ricorderà di te per criticarti; non 730 - 1450 - Definizione valore delle note. 4150-4400 - Suona la parte 35 e torna 

sapranno mai se sotto il cappello eri 1460-1640 - Suona le 

parti 1-4. da capo. ■ 

Seguito listato musicale. 


F3F") 

500 CALL CHAR(115,"FFFFFFFFFFFFF 

838") 


FFF") 

350 CALL CHAR(156,"0402OC10237FF 


510 CALL CHAR(116,"FCFEFFFFFFFFF 

FFF" ) 


FFF") 

360 CALL CHAR(157,"030F3FFFFFFCF 


520 CALL CHAR(113,"FF") 

8E") 


530 CALL COLOR(2,15,1) 

370 CALL CHAR(158,"FCF0E08") 


540 CALL SCREEN(16) 

380 CALL CHAR(40,"02010204080402 


550 R=5 

01 ") 


560 CO=10 

390 CALL CHAR(159,"3G3E3F3F3F3F3 


570 CALL HCHAR(R,CO,128) 

F3F" ) 


580 CALL HCHAR(R,CO+l,129) 

400 CALL CHAR(119,"0000008OC0E0F 


590 CALL HCHAR(R,CO+2,130) 

OFF") 


600 CALL HCHAR(R,CO+3,131 ) 

410 CALL CHAR(120,"7F" ) 


610 CALL HCHAR ( R+1 / CO,132) 

420 CALL CHAR(121,"C0804020101C3 


620 CALL HCHAR(R+l,CO+l,133) 

E7F" ) 


630 CALL HCHAR(R+l, CO+2,134) 

430 CALL CHAR(41,"020102046251 2A 


640 CALL HCHAR(R+l,CO+3,135) 

1 4") 


650 CALL HCHAR(R,CO+8,l36) 

440 CALL CHAR(122,"3F3F3F3F3F3F3 


660 CALL HCHAR(R,CO+9,137) 

F3F" ) 


670 CALL HCHAR(R,CO+l0,138) 

450 CALL CHAR(123,"0000010608102 


680 CALL HCHAR(R,CO+ll,139) 

04") 


690 CALL HCHAR(R+l,CO+8,140) 

460 CALL CHAR(118,"7FFF7F7F7F7F7 


700 CALL HCHAR(R+l,CO+9,141) 

F7F" ) 


710 CALL HCHAR(R+l,CO+10,142) 

470 CALL CHAR(125, " 80C0E0F0F8FFF 


720 CALL HCHAR(R+l,CO+ll,143) 

FFF") 


730 LAB=208 

480 CALL CHAR(126,"OC0000000102F 


740 LGD=208 

C") 


750 LG=196 

490 CALL CHAR(127, " 3F7F7FBF3F3F3 


760 LGB=185 
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Seguilo listato musicale. 


770 

in 

:c 

r~ 

II 

Q 

Ou 

780 

LF=175 

790 

LE=165 

800 

LEB=156 

81 0 

LDD=156 

820 

LD=147 

830 

LDB=139 

840 

LCD=139 

850 

LC=131 

860 

LLB=123 

870 

LLBB=117 

880 

LLAD=117 

890 

LLA=110 

900 

AB=415 

91 0 

GD=415 

920 

G = 392 

930 

GB=370 

940 

FD=370 

950 

F = 349 

960 

E=330 

970 

EB=311 

980 

DD=311 

990 

D = 294 

1 000 

DB=277 

1 010 

CD=277 

1 020 

C = 262 

1 030 

LB=247 

1 040 

LBB=233 

1 050 

LAD = 2 3 3 

1060 

LA=220 

1 070 

HAB=831 

1 080 

HGD=831 

1 090 

HG = 78 4 

1 1 00 

HGB=7 4 0 

ino 

HFD = 7 40 

1 1 20 

HF=698 

1 1 30 

HE=659 

1 1 40 

HEB=622 

1 1 50 

HDD=622 

1 1 60 

HD=587 

1 1 70 

HDB=554 

1 1 80 

HCD= 554 

1 1 90 

HC=523 

1 200 

B=494 

1 21 0 

BB=466 

1 220 

AD = 4 66 

1 230 

A=440 


1240 HHAB=1661 
1250 HHGD=1661 
1260 HHG=1568 


1 270 

HHGB 

= 1 480 

1 280 

HHFD 

= 1 480 

1 290 

HHF = 

1 397 

1 300 

HHE = 

1 31 9 

1310 

HHEB 

= 1 245 

1 320 

HHDD 

= 1 245 

1 330 

HHD = 

1175 

1 340 

HHDB 

= 1 1 09 

1 350 

HHCD 

= 1 1 09 

1 360 

HHC = 

1 047 

1 370 

HB=988 

1 380 

HBB = 

932 

1 390 

HAD = 

932 

1 400 

HA=880 

1410 

HHHC 

= 2094 

1420 

HHB = 

1 976 

1430 

HHBB 

= 1 864 

1 440 

HHAD 

= 1 864 

1450 

HHA = 

1 760 

1460 

T=-100 

1470 

FOR 

Z = 1 TO 

1480 

CALL 

SOUND 

1 490 

CALL 

SOUND 

1 500 

CALL 

SOUND 

1 51 0 

CALL 

SOUND 

1 520 

CALL 

SOUND 

1 530 

CALL 

SOUND 

1 540 

CALL 

SOUND 

1 550 

CALL 

SOUND 

1 560 

CALL 

SOUND 

1 570 

CALL 

SOUND 

1 580 

CALL 

SOUND 

1 590 

CALL 

SOUND 

1 600 

CALL 

SOUND 

1 61 0 

CALL 

SOUND 

1 620 

CALL 

SOUND 

1 630 

CALL 

SOUND 

1 640 

NEXT 

Z 

1 650 

FOR 

Z = 1 TO 

1 660 

CALL 

SOUND 

1 670 

CALL 

SOUND 

1 680 

CALL 

SOUND 

1 690 

CALL 

SOUND 

1 700 

CALL 

SOUND 

1710 

CALL 

SOUND 


4 

(T,LAB,0,HAB,0) 
(T, LAB ,0, AB ,0) 
(T, AB, 0 ,HHAB, 0) 
(T,AB,0,HAB,0) 
(T, LFD, 0 ,HFD, 0) 
(T , LFD , 0 , FD , 0) 

(T,LEB,0,HEB,0) 
(T,LEB,0,EB,0) 
(T,LDD,0,HDD,0) 
(T,LDD,0,DD,0) 
(T,LDB,0,HDB,0) 
(T,LDB,0,DB,0) 
(T,LFD,0,HFD,0) 
(T,LFD,0,FD,0) 
(T,LDB,0,HDB,0) 
(T,LDB,0,DB,0) 

3 

(T,HDB,0,LAB,0) 
(T,HD,0,LAB,0) 
(T,HEB,0,AB,0) 
(T,HE, 0 ,AB, 0) 
(T,HFD, 0, LFD, 0) 
(T,HCD,0,LFD,0) 
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TEXAS TI99/4A 


Seguito listato musicale. 

1720 CALL SOUND(T,HDB,0,LEB,0) 
1730 CALL SOUND(T,HDD,0,LEB,0) 
1740 CALL SOUND(T,HDB,0,LDD,0) 


2130 CALL SOUND(T,B,0,LAB,0) 

2140 CALL SOUND (T,BB,0,AB,0) 

2150 CALL SOUND (T,AD,0,AB,0) 

2160 NEXT Z 

2170 CALL SOUND (T,HHAB, 0 ,LEB, 0 ,H 


1 750 

CALL 

SOUND(T,HDD,0,LDD,0) 

EB, 0 ) 


1 760 

CALL 

SOUND(T,HEB,0,LDB,0) 

21 80 

CALL 

SOUND(T 

1 770 

CALL 

SOUND(T,HE,0,LDB,0) 

21 90 

CALL 

SOUND(T 

1 780 

CALL 

SOUND(T,HFD,0,LFD,0) 

2200 

CALL 

SOUND(T, 

1 790 

CALL 

SOUND(T,HE,0,LFD,0) 

2210 

CALL 

SOUND(T, 

1 800 

CALL 

SOUND(T,HEB,0,LDB,0) 

2220 

CALL 

SOUND(T, 

1 81 0 

CALL 

SOUND(T,HDD,0,LDB,0) 

2230 

CALL 

SOUND(T f 

1 820 

NEXT 

Z 

2240 

CALL 

SOUND(T, 

1 830 

CALL 

SOUND(T,HDB,0,LAB,0,HA 




B, 0) 



2250 

CALL 

SOUND(T, 

1 840 

CALL 

SOUND(T,LAB,0,AB,0) 

2260 

CALL 

SOUND(T, 

1 850 

CALL 

SOUND(T,AB,0,HHAB,0) 




1 860 

CALL 

SOUND(T,AB,0,HAB,0) 

2270 

CALL 

SOUND(T 

1 870 

CALL 

SOUND(T,LFD,0,HFD,0) 

2280 

CALL 

SOUND(T, 

1 880 

CALL 

SOUND(T,LFD,0,FD,0) 

2290 

CALL 

SOUND(T, 

1 890 

CALL 

SOUND(T,LEB,0,HEB,0) 

2300 

CALL 

SOUND(T 

1 900 

CALL 

SOUND(T,LEB,0,EB,0) 

231 0 

CALL 

SOUND(T 

1 91 0 

CALL 

SOUND(T,LDD,0,HDD,0) 

2320 

CALL 

SOUND(T 

1 920 

CALL 

SOUND(T,LDD,0,DD,0) 

2330 

FOR Y=1 TO 2 

1 930 

CALL 

SOUND(T,LDB,0,HHAB,0) 

2340 

CALL 

SOUND(T 




2350 

CALL 

SOUND(T 

1 940 

CALL 

SOUND(T,LDB,0,HAB,0) 

2360 

CALL 

SOUND(T 

1950 

CALL 

SOUND(T,LFD,0,HHAB,0) 

B, 0 ) 






2370 

CALL 

SOUND(T 

1 960 

CALL 

SOUND(T,LFD,0,HAB,0) 

2380 

CALL 

SOUND(T 

1 970 

CALL 

SOUND(T,LDB,0,HCD,0) 

2390 

CALL 

SOUND(T 

1 980 

CALL 

SOUND(T,LDB,0,CD,0) 

2400 

CALL 

SOUND(T 

1 990 

FOR Z=1 TO 3 

2410 

CALL 

SOUND(T 

2000 

CALL 

SOUND(T,HHAB,0,LEB,0) 

2420 

CALL 

SOUND(T 




2430 

CALL 

SOUND(T 

2010 

CALL 

SOUND(T,A,0,LEB,0) 

2440 

CALL 

SOUND(T 

2020 

CALL 

SOUND(T,BB,0,EB,0) 

2450 

CALL 

SOUND(T 

2030 

CALL 

SOUND(T,B,0,EB,0) 

2460 

CALL 

SOUND(T 

2040 

CALL 

SOUND(T,HCD,0,LCD,0) 

2470 

CALL 

SOUND (T 

2050 

CALL 

SOUND(T,HHG,0,LCD,0) 

2480 

CALL 

SOUND(T 

2060 

CALL 

SOUND(T,HHAB,0,LLBB,0) 

2490 

CALL 

SOUND(T 




2500 

CALL 

SOUND(T 

2070 

CALL 

SOUND(T,AD,0,LLBB,0) 

,0) 



2080 

CALL 

SOUND(T,HHAB,0,LLAD,0) 

251 0 

CALL 

SOUND (T 




2520 

CALL 

SOUND(T 

2090 

CALL 

SOUND(T,AD,0,LLAD,0) 

2530 

CALL 

SOUND(T 

21 00 

CALL 

SOUND(T,BB,0,AB,0) 




21 1 0 

CALL 

SOUND(T,B,0,AB,0) 

2540 

CALL 

SOUND(T 

21 20 

CALL 

SOUND(T,HCD,0,LAB,0) 

2550 

CALL 

SOUND (T 


. 0,HDB,0) 

$, 0 , HDB , 0) 

5,0,DB,0) 

, 0,BB,0) 

, 0,LBB,0) 

5,0 , AD,0) 

5,0,LAD,0) 

, 0,HHGB,0) 

, 0,HGB,0) 

5,0,HHF,0) 

5,0,HF,0) 

F 0,HHDB,0) 

, 0,HDB,0) 

),0,A,0,HHCD 
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Seguito 1 

listato musicale. 

2920 

CALL 

SOUND(T,EB,0,HFD,0,HHE 




B, 0 ) 



2560 

CALL 

SOUND(T,CD,0,A,0,HHCD, 

2930 

CALL 

SOUND(T,EB,0,HEB,0) 

01 



2940 

CALL 

SOUND(T,LEB,0,HEB,0) 

2570 

CALL 

SOUND(T,HCD,0,HHCD,0) 

2950 

CALL 

SOUND(T,LEB,0,EB,0) 




2960 

CALL 

SOUND(T,EB,0,HCD,0) 

2580 

CALL 

SOUND(T,LCD,0,CD,0) 

2970 

CALL 

SOUND(T,EB,0,CD,0) 

2590 

CALL 

SOUND(T,LCD,0,CD,0) 

2980 

CALL 

SOUND(T,LEB,0,HC,0) 

2600 

CALL 

SOUND(T,CD,0,HCD,0) 

2990 

CALL 

SOUND(T,LEB,0,C,0) 

2610 

CALL 

SOUND(T,HCD,0,HHCD,0) 

3000 

CALL 

SOUND(T,EB,0,HHAB,0) 




3010 

CALL 

SOUND(T,EB,0,HAB,0) 

2620 

CALL 

SOUND(T,LCD,0,A,0,HHCD 

3020 

CALL 

SOUND(T,LEB,0,HHGB,0) 

,0) 

2630 

CALL 

SOUND(T,LCD,0,CD,0) 

3030 

CALL 

SOUND(T,LEB,0,HGB,0) 

2640 

CALL 

SOUND(T,CD,0,HCD,0) 

3040 

CALL 

SOUND(T,EB,0,HHEB,0) 

2650 

CALL 

SOUND(T,HCD,0,HHCD,0) 

3050 

CALL 

SOUND(T,EB,0,HEB,0) 

2660 

NEXT 

Y 

3060 

CALL 

SOUND(T,LD,0,HE,0,HHD, 

2670 

FOR Y=1 TO 4 

0) 



2680 

CALL 

SOUND(T,LAB,0,HHAB,0) 

3070 

CALL 

SOUND(T,LD,0,D,0) 




3080 

CALL 

SOUND(T,D,0,HD,0) 

2690 

CALL 

SOUND(T,LAB,0,HHG,0) 

3090 

CALL 

SOUND(T,HD,0,HHD,0) 

2700 

CALL 

SOUND(T,AB,0,HHAB,0) 

3100 

CALL 

SOUND(T,LD,0,D,0) 

2710 

CALL 

SOUND(T,AB,0,AD,0) 

31 1 0 

CALL 

SOUND(T,D,0,HD,0) 

2720 

NEXT 

Y 

31 20 

CALL 

SOUND(T,D,0,HE,0,HHD,0 

2730 

CALL 

SOUND(T,LAB,0,HHAB,0) 

) 






31 30 

CALL 

SOUND(T,HD,0,HHD,0) 

2740 

CALL 

SOUND(T,LAB,0,HHGD,0) 

31 40 

CALL 

SOUND(T,LD,0,D,0) 




31 50 

CALL 

SOUND(T,LD,0,D,0) 

2750 

CALL 

SOUND(T,AB,0,HHGB,0) 

3160 

CALL 

SOUND(T,D,0,HD,0) 

2760 

CALL 

SOUND(T,AB,0,HHFD,0) 

3170 

CALL 

SOUND(T,HD,0,HHD,0) 

2770 

CALL 

SOUND(T,LAB,0,HHF,0) 

31 80 

CALL 

SOUND(T,LD,0,HE,0,HHD, 

2780 

CALL 

SOUND(T,LAB,0,HHFD,0) 

0) 






31 90 

CALL 

SOUND(T,LD,0,D,0) 

2790 

CALL 

SOUND(T,AB,0,HHGB,0) 

3200 

CALL 

SOUND(T,D,0,HD,0) 

2800 

CALL 

SOUND(T,AB,0,HHGD,0) 

3210 

CALL 

SOUND(T,HD,0,HHD,0) 

2810 

CALL 

SOUND(T,LAB,0,HHAB,0) 

3220 

NEXT 

Y 




3230 

FOR Y=1 TO 4 

2820 

CALL 

SOUND(T,LAB,0,HHGD,0) 

3240 

CALL 

SOUND(T,LEB,0,HHEB,0) 

2830 

CALL 

SOUND(T,AB,0,HHGB,0) 

3250 

CALL 

SOUND(T,LEB,0,HHD,0) 

2840 

CALL 

SOUND(T,AB,0,HHFD,0) 

3260 

CALL 

SOUND(T,EB,0,HHEB,0) 

2850 

CALL 

SOUND(T,LAB,0,HHF,0) 

3270 

CALL 

SOUND(T,EB,0,HHF,0) 

2860 

CALL 

SOUND(T,LAB,0,AB,0) 

3280 

NEXT 

Y 

2870 

CALL 

SOUND(T,AB,0,HAB,0) 

3290 

CALL 

SOUND(T,LEB,0,HHEB,0) 

2880 

CALL 

SOUND(T,HAB,0,HHAB,0) 







3300 

CALL 

SOUND(T,LEB,0,HHDD,0) 

2890 

FOR Y 

r =l TO 2 




2900 

CALL 

SOUND(T,LEB,0) 

3310 

CALL 

SOUND(T,EB,0,HHDB,0) 

2910 

CALL 

SOUND(T,LEB,0,EB,0) 

3320 

CALL 

SOUND(T,EB,0,HHCD,0) 
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Bogey Boogie 


TEXAS T199/4A 


Seguito listato musicale. 

3330 CALL SOUND(T,LEB,0,HHC,0) 
3340 CALL SOUND(T,LEB,0,HHCD,0) 

3350 CALL SOUND(T,EB,0,HHDB,0) 
3360 CALL SOUND(T,EB,0,HHDD,0) 
3370 CALL SOUND(T,LEB,0,HHEB,0) 

3380 CALL SOUND(T,LEB,0,HHDD,0) 

3390 CALL SOUND(T,EB,0,HHDB,0) 
3400 CALL SOUND(T,EB, 0,HHCD,0) 
3410 CALL SOUND(T,LEB,0,HHC,0) 
3420 CALL SOUND(T,LEB,0,EB,0) 
3430 CALL SOUND(T,EB,0,HEB,0) 
3440 CALL SOUND(T,HEB,0,HHEB,0) 

3450 CALL SOUND(T,LLBB,0,HHEB,0) 

3460 CALL SOUND(T,LLBB,0,HHE,0) 

3470 CALL SOUND(T,LBB,0,HHFD,0) 

3480 CALL SOUND(T,LBB,0,HHGB,0) 

3490 CALL SOUND(T,LLBB,0,HHG,0) 

3500 CALL SOUND(T,LLBB,0,HHD,0) 
3510 CALL SOUND(T,LBB,0,HHEB,0) 

3520 CALL SOUND(T,LBB,0,HHF,0) 
3530 CALL SOUND(T,LLBB,0,HHEB,0) 

3540 CALL SOUND(T,LLBB,0,HHF,0) 

3550 CALL SOUND(T,LBB,0,HHFD,0) 

3560 CALL SOUND(T,LBB,0,HHGB,0) 

3570 CALL SOUND(T,LLBB,0,HHG,0) 

3580 CALL SOUND(T,LLBB,0,HHGB,0) 

3590 CALL SOUND(T,LBB,0,HHFD,0) 

3600 CALL SOUND(T,LBB,0,HHF,0) 
3610 CALL SOUND(T,LLBB,0,HHEB,0) 


3620 CALL SOUND(T,LLBB,0,HHE,0) 

3630 CALL SOUND(T,LBB,0,HHFD,0) 

3640 CALL SOUND(T,LBB,0,HHGB,0) 

3650 CALL SOUND(T,LLBB,0,HHFD,0) 

3660 CALL SOUND(T,LLBB,0,HHGB,0) 

3670 CALL* SOUND (T, LBB, 0 , HHG, 0) 
3680 CALL SOUND(T,LBB,0,HHAB,0) 

3690 CALL SOUND(T,LLBB,0,HHG,0) 

3700 CALL SOUND(T,LLBB,0,HHGB,0) 

3710 CALL SOUND(T,LBB,0,HHFD,0) 

3720 CALL SOUND(T,LBB,0,HHF,0) 
3730 CALL SOUND(T,LLBB,0,HHEB,0) 

3740 CALL SOUND(T,LLBB,0,HHD,0) 

3750 CALL SOUND(T,LBB,0,HHDB,0) 

3760 CALL SOUND(T,LBB,0,HHCD,0) 

3770 CALL SOUND(T,LDB,0,HHDB,0) 

3780 CALL SOUND(T,LDB,0,HHD,0) 
3790 CALL SOUND(T,DB,0,HHEB,0) 
3800 CALL SOUND(T,DB,0,HHF,0) 
3810 CALL SOUND(T,LDB,0,HHEB,0) 
3820 CALL SOUND(T,LDB,0,HHF,0) 
3830 CALL SOUND(T,DB,0,HHFD,0) 
3840 CALL SOUND(T,DB,0,HHGB,0) 
3850 CALL SOUND(T,LDB,0,HHFD,0) 

3860 CALL SOUND(T,LDB,0,HHGB,0) 

3870 CALL SOUND (T, DB , 0 , HHG , 0) 
3880 CALL SOUND(T,DB,0,HHAB,0) 

3890 CALL SOUND(T,LDB,0,AD,0) 
3900 CALL SOUND(T,LDB,0,BB,0) 
3910 CALL SOUND(T,DB,0,HC,0) 

3920 CALL SOUND(T,DB,0,HCD,0) 
3930 FOR Y=1 TO 8 


49 




Microsoft Word fa testo. Ogni tipo di testo: una lettera 
ad un fornitore, una tesi di laurea, un articolo di giornale, 
un saggio di filosofia, un manuale tecnico denso di grafici 
Word è il più sofisticato word processor disponibile sul mer¬ 
cato. 


Word si impara ad usare in pochi minuti. Facile ed 
immediato per il principiante, potente e completo per 
l’esperto. 

Word per chi scrive - Word può trattare più documenti 
contemporaneamente. Stampare su più colonne. Impagina¬ 
re a piacere ogni singolo paragrafo. 

Numerare automaticamente le note e raccoglierle a pie’ 
di pagina o a fine capìtolo. Usare numeri romani. Trattare 
diversamente le pagine destre dalle sinistre. Leggere 1 testi 
di Mac Write (versione Macintosh) e di Word Star (versione 
Pc IBM e Olivetti M24), interpretandone correttamente 1 co¬ 
dici di formattazione. 

Lettere personalizzate - Word può stampare lettere ó 
circolari personalizzate, prendendo i dati (ad esempio nome 
e indirizzo) da un altro documento. Oppure da un archivio 
creato con altri programmi. 

E può fare altre operazioni di “merging”, semplicemente 
scrivendo nel testo le apposite istruzioni. 

A parole, Word è il migliore. Ma anche nei fatti. 

Word è di parola. 

WORD 
testo 




Bogey Boogie 


TEXAS TI99/4A 


Seguilo liitato musicale. 


3940 CALL SOUND(T,LDB,0,HDB,0) 
3950 CALL SOUND(T,LDB,0,HCD,0) 
3960 CALL SOUND(T,DB,0,HDB,0) 
3970 CALL SOUND(T,DB,0,HDD,0) 
3980 NEXT Y 

3990 CALL SOUND(T,LDB,0,HDB,0,HH 
DB, 0 ) 

4000 CALL SOUND(T,LDB,0,DB,0,HDB 
,0) 

4010 CALL SOUND(T,HDB,0,HHDB,0,L 
DB, 0 ) 

4020 CALL SOUND(T,HDB,0,DB,0,LDB 
,0) 

4030 CALL SOUND(T,HDD,0,HHDD,0,L 
DD, 0) 

4040 CALL SOUND(T,HDD,0,DD,0,LDD 
,0) 

4050 CALL SOUND(T,HDB,0,HHDB,0,L 
EB, 0 ) 

4060 CALL SOUND(T,HDB,0,DB,0,LEB 
#0) 

4070 CALL SOUND(T,HCD,0,HHCD,0,L 
E,0) 

4080 CALL SOUND(T,CD,0,HCD,0,LE, 
0) 

4090 CALL SOUND(T,HC,0,HHC,0,LFD 
,0) 

4100 CALL SOUND(T,C,0,HC,0,LFD,0 
) 

4110 CALL SOUND(T,BB,0,HBB,0,LGB 
,0) 

4120 CALL SOUND(T,LBB,0,BB,0,LGB 
,0) 

4130 CALL SOUND(T,AD,0,HAD,0,LG, 
0) 

4140 CALL SOUND(T,LAD,0,AD,0,LG, 
0) 

4150 CALL SOUND(T,HHAB,0,HHHC,0, 
LAB,0) 

4160 CALL SOUND(T,LAB,0,AB,0) 

4170 CALL SOUND(T,AB,0,HHAB,0) 
4180 CALL SOUND(T,AB,0,HAB,0) 

4190 CALL SOUND(T,LFD,0,HFD,0) 
4200 CALL SOUND(T,LFD,0,FD,0) 

4210 CALL SOUND(T,LEB,0,HEB,0) 
4220 CALL SOUND(T,LEB,0,EB,0) 


4230 CALL SOUND(T,LDD,0,HDD,0) 
4240 CALL SOUND(T,LDD,0,DD,0) 
4250 IF Z=6 THEN 4340 
4260 CALL SOUND(T,LDB,0,HDB,0) 
4270 CALL SOUND(T,LDB,0,DB,0) 
4280 CALL SOUND(T,LFD,0,HFD,0) 
4290 CALL SOUND(T,LFD,0,FD,0) 
4300 CALL SOUND(T,LDB,0,HDB,0) 
4310 CALL SOUND(T,LDB,0,DB,0) 
4320 Z = 6 
4330 GOTO 4150 

4340 CALL SOUND(T,LDB,0,HHDB,0) 

4350 CALL SOUND(T,LDB,0,HDB,0) 
4360 CALL SOUND(T,LFD,0,HHDB,0) 

4370 CALL SOUND(T,LFD,0,HDB,0) 
4380 CALL SOUND(T,LDB,0,HHFD,0) 

4390 CALL SOUND(T,LDB,0,HFD,0) 
4400 GOTO 1650 
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abbinamento Totocalcio e 
computer è ormai una cosa 
che vediamo in molte ricevi¬ 
torie quando, il sabato se¬ 
ra, andiamo a giocare il nostro sistemi¬ 
no. Ma l’abbinamento che più interessa 
sia i sistemisti che i possessori di com¬ 
puter è sicuramente quello che permet¬ 
te di fare il fatidico tredici con la colla¬ 
borazione del nostro home computer. 

Il programma che abbiamo elaborato 
per il VIC 20 con espansione da 16 «by¬ 
te non ha la pretesa di assicurare il 
"tredici" ogni settimana, ma aiuta il si¬ 
stemista a giocare meglio i suoi soldi, in 
quanto permette, tramite i condiziona¬ 
menti, una riduzione notevole del nu¬ 
mero di colonne rispetto al sistema inte¬ 
grale. Fatta questa premessa, dobbia¬ 
mo dire che il programma condiziona il 
sistema qualunque esso sia, da due 
doppie a tredici triple, in base ai segni 
consecutivi e al numero di segni in ogni 
colonna. 

Il programma è già predisposto a elimi¬ 
nare le colonne che contengono più di 
tre “1", più di tre "X" o più di due "2" 
consecutivi. 

Il condizionamento fatto in questa ma¬ 
niera, secondo noi è il migliore, in quan¬ 
to un numero maggiore di uscita di se¬ 
ghi consecutivi si verifica pochissime 
volte, come si può vedere dalla statistica 
delle colonne vincenti, e nello stesso 
tempo si ha una riduzione notevole del¬ 
le colonne. Comunque, chi volesse per¬ 
sonalizzare questo condizionamento, 
non ha che da modificare le linee da 
112 a 116. 

Il condizionamento dei segni presenti 
in ogni colonna viene invece fatto trami¬ 
te input. Infatti si deve digitare sia il nu¬ 
mero massimo che il numero minimo di 
segni 1-X-2 che si vogliono presenti in 
ogni colonna. 

Ogni valore deve essere compreso tra 0 
e 13; digitando valori inferiori o superiori 
il programma cancella lo schermo e ri¬ 
chiede l'input dall’inizio. 



Come usare il programma 

Il programma inizia con una serie di 
avvertenze per una corretta utilizzazio¬ 
ne dello stesso. Chi volesse saltare que¬ 
sta parte, basta che lo lanci con Run 8. 
Quindi si passa alla sezione di input del 
pronostico. In questa sezione non c’è 


Totocalcio: 

sviluppo 

colonnare 

condizionato 

Un versatile programma 
che vi aiuterà a compilare la schedina 

di Vincenzo Carnemolla 


controllo della correttezza dell’input, 
che deve essere nella forma 1-X-2 per le 
fisse, 1X-12-X2 per le doppie e 1X2 per la 
tripla. Per le fisse e le doppie non ci 
dovrebbero essere equivoci, ma la tripla 
deve essere assolutamente 1X2 e non 
12X o XI2 o altro, pena errore in fase di 
elaborazione e stampa. Comunque alla 
fine si richiede la conferma, per cui in 
caso di errore basta digitare "N", si 
cancella lo schermo e si ricomincia da 
capo. Altrimenti con “S" si va nella se¬ 
zione di condizionamento del numero 
massimo e minimo dei segni 1-X-2 pre¬ 
senti in ogni colonna. Di nuovo viene 
richiesta la conferma di quanto si è digi¬ 
tato e, se è affermativa, si passa a visua¬ 
lizzare le colonne in gruppi di quattro 
per un totale di sedici colonne per ogni 
schermata; dopo basta premere la bar¬ 
ra spazio per visualizzare altre sedici 
colonne e così via, fino a che non com¬ 
parirà la scritta “Col.... Fine Sviluppo”, 
in cui, al posto dei puntini, ci sarà il 
numero delle colonne visualizzate. 

Chi volesse saltare la parte di condi¬ 
zionamento del programma e quindi a- 
vere uno sviluppo integrale del sistema, 
deve aggiungere la linea: 95 Goto 300. 

Il programma è stato scritto per il VIC 20 
con espansione da 16 Kbyte, ma, dato 
l'argomento di interesse generale, non 


si è fatto uso della grafica e del suono 
del VIC, per cui l’eventuale trasposizio¬ 
ne del programma ad altri computer è 
facilmente realizzabile. 

Analisi del listato 

1-5 - Maschera di presentazione. 

6-8 - Rimanda alle istruzioni, all'input 
del pronostico e al condizionamento 
dei segni in ogni colonna. 

10-22 - Riempie le matrici da A$ a 0$ dei 
segni 1-X-2. 

24-27 - Simulazione del Print At così 
com’era descritto nel numero di Ottobre 

84 di Personal Software. 

29 - Inizializza le variabili di stampa delle 
colonne. 

45 - Azzeramento della colonna d'inizio 
stampa. 

50-76 - Sezione che permette lo sviluppo 
colonnare del sistema. Si è fatto uso 
delle variabili Al, A2, A3, B1, B2, B3 e 
così via fino a 01,02,03 per l'esigenza di 
soddisfare tutte le possibilità che ci so¬ 
no in fase di input del pronostico. Il pro¬ 
cedimento per sviluppare una tripla è il 
seguente: metti A = A+1, se A è mag¬ 
giore di 3 metti B = B + 1 e A = 1 e così 
via. Con un pronostico diverso il proce¬ 
dimento è uguale, cambiano solo i vaio- 






Totocalcio: sviluppo colonnare condizionato 



ri delle variabili. A fine sviluppo si va alla 
linea §10. 

100-120 - Sezione di condizionamento 
dei segni consecutivi. Ogni colonna vie¬ 
ne messa nella stringa U$, così con il 
ciclo For-Next e la (unzione MID$ si può 
leggere tutta la stringa e, se trova più di 
tre “1" o più di tre “X" o più di due " 2 " 
consecutivi, salta la sezione stampa e 
ritorna ad elaborare un'altra colonna. 
123 - Azzeramento dei contatori dei se¬ 
gni 1-X-2 presenti in ogni colonna. 
125-200 - Conteggio degli 1-X-2 in ogni 
colonna. 

210-235 - Confronto tra i valori dei con¬ 
tatori con i valori delle variabili AB, BA, 
CD, DC, EF, FE, immessi in fase di input, 
del condizionamento dei segni presenti 
in ogni colonna. Basta che uno solo dei 
valori dei contatori UN, DU, IX sia al di 
fuori dei valori immessi, che il program¬ 
ma salti la sezione stampa e ritorni ad 
elaborare un'altra colonna. 

300-324 - Stampa delle colonne. 

430 - Ad ogni giro incrementa di uno la 


colonna di stampa. 

435-445 - Stampa le colonne a gruppi di 
quattro per un totale di sedici colonne. 
450 - Se lo schermo è pieno rimanda 
alla linea 700. 

500 - Ritorna all'elaborazione di un’altra 
colonna. 

510-537 - Conta le colonne presenti nel¬ 
lo schermo a fine sviluppo. 

600 - Scritta che appare quando il siste¬ 
ma è completamente sviluppato. La 
somma di XC + Z dà le colonne com¬ 
plessive visualizzate. 

610 - Fine del programma. 

700-720 - Quando lo schermo è pieno 
(sedici colonne), attende che venga 
premuta la barra spazio, quindi cancel¬ 
la lo schermo, azzera il contatore di co¬ 
lonne di stampa (Z) e incrementa di 16 il 
conteggio delle colonne visualizzate. 
990-1014 - Sezione di input del primo 
pronostico. In base al pronostico ven¬ 
gono posti i valori opportuni nelle varia¬ 
bili Al, A2, A3, A4. 

1020-1256 - Input del secondo pronosti¬ 


co. Le variabili sono B1, B2, B3, B4. Se il 
primo pronostico è una fissa e il secon¬ 
do pronostico è una doppia o la tripla, il 
valore di B4 per le doppie e la tripla deve 
essere diminuito di 1; se la doppia è 
“12” il valore di B4 deve essere diminui¬ 
to di un altro punto, come si può vedere 
nelle linee 1036-1038. Se il terzo prono¬ 
stico è una doppia, o la tripla e i primi 
due sono delle fisse, il valore di C4 viene 
diminuito di 1, o di 2 se è stato pronosti¬ 
cato “12”, e cosi via per tutti gli altri 
pronostici. 

1260-1280 - Siccome non c’è controllo 
dell'Input, si chiede la conferma di ciò 
che si è inserito. 

1290-1355 - Input del numero massimo 
e minimo dei segni 1-X-2 che si vogliono 
in ogni colonna. Si accettano numeri 
compresi tra 0 e 13, numeri inferiori o 
superiori fanno cancellare lo schermo e 
ritornate al primo input. 

1360-1395 - Anche qui viene richiesta la 
conferma di quanto si è inserito. 
1500-1550 - Avvertimenti e informazioni. 


Listato 1 - Il programma Totocalcio per VIC 20. 

TABELLA DI CONVERSIONE 


(HOME).HOME 

C CLR }.PULIZIA SCHERMO 

(CUR.SUJ.CURSORE IN ALTO 

{CUR.GIU}..--CURSORE IN BASSO 

(CUR.DES).CURSORE A DESTRA 

{ CUR . SIN ).CURSORE A SINISTRA 

(SPC ).SPAZIO 

l RVS ON ).REVERSE ON 

( RVS OFF ).REVERSE OFF 

( INST}.INSERT 

(FI ).TASTO FI 

( F2 ).TASTO F2 

( F3 ).TASTO F3 

( F4 }.TASTO FA 

( F5 }.TASTO F5 

( F6 ).TASTO F6 

( F7 ).TASTO F7 

( F8 ).TASTO F8 

(BLACK).COL. NERO (CTRL+1) 

{ WHITE }.COL. BIANCO (CTRL + 2) 

(RED).COL. ROSSO (CTRL+3) 

{ CYAN ).COL. CIANO (CTRL+A) 

(PURPLE).COL. PORPORA (CTRL+5) 

(GREEN).COL. VERDE (CTRL<6) 

(BLUE).COL. BLU (CTRL + 7) 

(YELL0W).COL. GIALLO (CTRL*8) 

(0RANGE).COL. ARANCIO (CBM+1) 

(BROWN).COL. MARRONE (CBM + 2) 


(LT.RED). COL. ROSSO CHIARO (CBM*3) 

(GRAY1) . COL. GRIGIO 1 (CBM+A) 

(GRAY2) . COL. GRIGIO 2 (CBM+5) 

(LT.GREEN) . COL. VERDE CHIARO (CBM*6) 

(LT.BLUE) . COL. BLU CHIARO (CBM + 7) 

(GRAY3) . COL. GRIGIO 3 (CBM + 8) 


I CARATTERI GRAFICI, OTTENUTI CON LA 
PRESSIONE DEI TASTI ' SHIFT 1 E ’CBM', 
SONO CODIFICATI IN MODO DA INDICARE IL 
TASTO DA PREMERE ASSIEME A 'SHIFT' 0 
'CBM ' . ES. IL CUORICINO E' CODIFICATO 
CON (SH S) . 

UN NUMERO DENTRO LE PARENTESI INDICA 
LE VOLTE CHE IL TASTO VA PREMUTO. 


LISTATO DI: TOTOCALC10***»«»**** * * * » » * * » 


1 PRINT"(CLR) (4 CUR.GIU)'"'*'" , ***»*** I "'** 
»*»***( 6 SPC) *{ CUR .GIU }TOTOCALCIO( 8 SPC 
}(CUR.GIU)SVILUPPO COLONNARE" 

2 PRINT"(CUR.GIU)(3 SPCJENZ0 CARNEMOLLA( 
A SPC)(CUR.GIU)(3 SPC)VIA GRAMSCI 1/N" 

3 PRINT"(CUR.GIU)(3 SPC } 9701 1 ACATE (RG) 
(5 SPC)(CUR.GIU)TEL. 0932-985368" 

A PRINT"(CUR. GIU }#»»»*»»«**»* * * * *****»»" 

5 F0RYU=1T05000:NEXT 

6 G0SUB1500 

8 GOSUB990:GOSUB1290 

10 A$(1 )-»1":A$(2)-"X":A$(3)-"2" 

11 B$(1)-"1":B$(2)-"X":B$(3)-"2" 
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Seguito listato Totocalcio. 



1 40 

IFC$(C )="2" 






1 42 

IFD$(D)="1" 

1 2 

C$(1 )-"1" 

C $ ( 2 ) 

-"X" 

: C $ ( 3 ) = " 2 " 

1 44 

IFD$(D)-"X" 

13 

D$ (1 )-"1 " 

D$ ( 2 ) 

= " X " 

: D $ ( 3 ) - " 2 " 

1 46 

IFD$(D)-"2" 

1 4 

E$(1)-"1" 

E$ ( 2 ) 

= " X " 

: E$(3)-"2" 

1 48 

IFE$(E)-"1" 

1 5 

F$( 1 )-"1" 

F$ ( 2 ) 

= " X " 

: F $ ( 3 ) “ " 2 " 

1 50 

IFE$(E)="X" 

16 

G$(1)-"1" 

G$ ( 2 ) 

= " X " 

: G $ ( 3 ) ” " 2 " 

1 52 

IFE$(E)-"2" 

1 7 

H $ ( 1 ) - " 1 " 

H $ ( 2 ) 

= "X» 

: H $ ( 3 ) “ " 2 " 

154 

IFF$(F)="1" 

1 8 

I$(1 )-"1" 

I $ ( 2 ) 

= " X " 

: I $ ( 3 ) “ " 2 " 

1 56 

IFF$(F)-"X" 

1 9 

L $(1 )-"1" 

L$ ( 2 ) 

= " X " 

:L$(3)“"2" 

1 58 

IFF$(F)-"2" 

20 

M$(1 )-"1" 

M$ ( 2 ) 

= " X " 

: M $ ( 3 ) “ " 2 " 

1 60 

IFG$(G)="1" 

21 

N$(1 )-" 1 " 

N $ ( 2 ) 

- " X " 

:N$(3)-"2» 

1 62 

IFG$(G)-"X" 

22 

0$(1 1 " 

0$ ( 2 ) 

- " X " 

:0$(3)“"2" 

1 64 

IFG$(G)="2" 

23 

REM SIMULAZIONE 

PRINT AT 

1 66 

IFH$(H)-"1 " 

24 

R = 22 :C-21 




168 

IFH$(H)-"X" 

25 

DIMX$(C)|Y$(R): 

H$ = " 

{HOME)" 

1 70 

IFH$(H)="2" 

26 

FORI-OTOC 

X$ = X$ 

+"{CUR.DES)":X$(I)-X$: 

172 

IFI$(I)="1" 


NEXTI 




174 

IFI$(I)-"X" 

27 

F0RI-6T0R 

Y$ = Y$ 

+ " (CUR .GIU}":Y$(I)-Y$: 

176 

IFI$(I)-"2" 


NEXTI 




1 78 

IFL$(L)-"1" 

29 

A = A4 :B-B4 

C-C4 : 

D = D 4 

:E-E4:F-F4:G=G4:H- 

1 80 

IFL$(L)="X" 


H4 : 1-I4 : L-L4 : M = 

M4 : N 

= N 4 : 0-0 4 

1 82 

IFL$(L)="2" 

45 

Z-0 




184 

IFM$(M)-"1" 


49 REM SVILUPPO DEL SISTEMA IN BASE AL P 
RONOSTICO 

50 A = A + A 2 

52 IFA>A3THENB=B+B2:A=A1 
54 IFB>B3THENC-C+C2:B-B1 
56 IFC>C3THEND=D+D2:C=C1 
58 IFD>D3THENE-E+E2:D-Dl 
60 IFE>E3THENF-F+F2:E-E1 
62 IFF>F3THENG-G+G2:F»F1 
64 IFG>G3THENH-H+H2:G-G1 
66 IFH>H3THENI-I+I2:H=H1 
68 IFI>I3THENL«L+L2:I-I 1 
70 IFL>L3THENM=M+M2:L=L1 
72 IFM>M3THENN=N+N2:M=M1 
74 IFN>N3THEN0=0+02:N-N1 
76 IF0>03THEN0=1:G0T0510 

99 REM CONDIZIONAMENTO DEI SEGNI CONSECU 
TI VI 

100 U$=A$(A)+B$(B)+C$(C)+D$(D)+E$(E)+F$( 
F)+G$(G)+H$(H)+I$(I)+L$(L)+M$(M)+N$( 
N)+0$(0) 

110 FORT » 1T013 

112 IFMID$(U$,T,4)="1111"THEN500 
114 IFMID$(U$, T ,4)-"XXXX"THEN500 
116 IFMID$(U$,T,3)="222"THEN500 
120 NEXT 

123 UN-0:IX-0 : DU-0 

124 REM-CONTEGGIO DEGLI 1-X-2 IN OGNI CO 
LONNA 

125 IFA$(A)-"1"THENUN-UN+1 

127 IFA$(A)-"X"THENIX»IX+1 

128 IFA$(A)-"2"THENDU=DU+1 
130 IFB$(B)-"1"THENUN-UN+1 
132 IFB$(B)-"X"THENIX-IX+1 
134 IFB$(B)-"2"THENDU-DU+1 
136 IFC$(C)-"1"THENUN-UN+1 
138 IFC$(C)-"X"THENIX=IX+1 


THENDU-DU+1 
'THENUN-UN+1 
’THENIX-IX+I 
'THENDU-DU+1 
THENUN-UN+1 
■THENIX-IX+1 
'THENDU-DU+1 
'THENUN-UN +1 
THENIX-IX+1 
THENDU-DU+1 
THENUN-UN+1 
THENIX-IX+1 
THENDU-DU+1 
THEN'JN-UN+1 
THENIX-IX+1 
THENDU-DU+1 
'THENUN-UN+1 
'THENIX-IX+1 
'THENdU-DU+1 
THENUN-UN+1 
THENIX-IX+1 
THENDU-DU+1 


THENIX-IX+1 
2"THENDU-DU+1 
1 "THENUN-UN+1 
X"THENIX-IX+1 
2"THENDU-DU+1 
1"THENUN-UN+1 
X"THENIX-IX+1 
2"THENDU-DU+1 

NUMERO DI SEGNI 1 


186 IFM$(M ) 1 
188 IFM $(M ) > 

190 IF N $(N)■ 

192 IFN$(N ) ! 

194 IFN$(N)■ 

196 IF0$(0 ) ■ 

198 IF0$(0)■ 

200 IF0$(0 ) ■ 

209 REM VERIFICA DEL 
X- 2 

210 IFUN>ABTHEN500 
215 IFUN<BATHEN500 
220 IFIX>CDTHEN500 
225 IFIX<DCTHEN500 
230 IFDU>EFTHEN500 
235 IFDU<FETHEN500 

299 REM SEZIONE STAMPA DELLE COLONNE 

300 PRINTH$X$(Z)Y$(3);A$(A) 

302 PRINTH$X$(Z)Y$(4);B$(B) 

304 PRINTH$X$(Z)Y$(5):C$(C) 

306 PRINTH$X$(Z)Y$(7);D$(D) 

308 PRINTH$X$(Z)Y$(8);E$(E) 

310 PRINTH$X$(Z)Y$(9);F$(F) 

312 PRINTH$X$(Z)Y$(11 ) ;G$(G) 

314 PRINTH$X$(Z)Y$(12);H$(H) 

316 PRINTH$X$(Z)Y$(13)!I$(I ) 

318 PRINTH$X$(Z)Y$(15);L$(L) 

320 PRINTH$X$(Z)Y$(16);M$(M) 

322 PRINTH$X$(Z)Y$(17);N$(N) 

324 PRINTH$X$(Z)Y$(18) ; 0$(0) 

430 Z-Z+1 

435 IFZ-4THENZ-Z+2 
440 IFZ-1OTHENZ-Z+2 
445 IFZ-16THENZ-Z+1 
450 IFZ>20THENGOSUB700 
500 GOT050 

509 REM CONTA LE COLONNE A FINE SVILUPPO 
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Totocalcio: sviluppo colonnare condizionato 



Seguito listato Totocalcio. 


510 IFZ-6THENZ-4 
512 IFZ-7THENZ-5 

515 IFZ-8THENZ-6 

516 IFZ-9THENZ-7 
520 IFZ-12THENZ-8 
522 IFZ-13THENZ-9 
525 IFZ-1 4THENZ-1 0 
527 IFZ-15THENZ-11 
530 IFZ-17THENZ-12 
532 IFZ-18THENZ-13 
535 IFZ-19THENZ-14 
537 IFZ-20THENZ-15 

600 PRINT"{CUR.GIU}COL."XC+Z"FINE SVILUP 
PO{CU R.SU}" 

6 1 0 END 

700 GETSD$:IFSD$=""THEN700 
710 IFSD$-" "THENPRINT"{CLR}" : Z-0:XC-XC + 
16 : RETURN 
720 GOT0700 

990 PRINT"{CLR}{6 SPC}T0T0CALCIO{CUR.GlU 
}" 

1000 INPUT" 1 {CBM V}{2 SPC}PRONOSTICO";AA 

$ 

1002 IF A A $ = "1"THENA1-1 :A2=1 :A3-1 :A4=1 
100A IFAA$-"X"THENA1-2:A2«1:A3«2:A4-2 
1006 IFAA$-"2»THENA1-3:A2-1:A3-3:A4=3 
1008 IFAA$ = "1X" THENA1-1 : A 2 = 1 :A3“2:A4=0 
1010 IFAA$="12"THENA1=1 : A2-2 : A 3-3 : A^4 = - 1 
1012 IFAA$-"X2"THENA1-2:A2-1:A3«3:A4=1 
1014 IFAA$-"1X2"THENA!»1 :A2=1 :A3=3:A4-0 
1020 INPUT"2{CBM V}{2 SPC}PRONOSTICO";BB 
$ 

1022 IFBB$-"1"THENB1-1 :B2 — 1 : B3 — 1 :B4-1 :G0 
T01040 

1 024 IFBB$-"X"THENB1-2 :B2-1 :B3-2 :B4-2 :GO 
T01040 

1026 IFBB$-"2"THENB1=3 :B2 = 1 :B3-3:B4 = 3:GO 
T01040 

10 28 IFBB$-"12"THENB1-1 :B2-2:B3-3 :B4 = 1 
1030 IFBB$«"1X"THENB1-1:B2-1:B3-2:B4-1 
1032 IFBB$-"X2"THENB1-2 :B2-1 :B3-3:B4 = 2 
1 034 IF B B $- " 1X2"THENB1-1 :B2-1 :B3-3:B4-1 
1036 IFLEN( A A $ ) = 1THENB4-B4-1 
1038 IFLEN(A A $ ) -1ANDBB$»"12"THENB4»B4-1 
1 040 INPUT"3{CBM V}{2 SPC } PRONOSTICO";CC 
$ 

1 042 IFCC$-"1"THENC1-1:C2-1:C3-1 tC4 = 1tCO 
T01060 

1 044 IFCC$-"X"THENC1-2:C2=1 :C3-2 :C4 = 2 :GO 
T01060 

1 046 IFCC$-"2"THENC1—3 :C2 — 1 :C3-3:C4 = 3:GO 
T01060 

1048 IFCC$-"12"THENC1-1:C2-2:C3-3:C4=1 
1050 IFCC$-"1X"THENC1-1:C2-1:C3-2tC4-1 
1052 IFCC$-"X2"THENC1-2:C2=1:C3-3:C4-2 
1054 I FCC $ «"1X2"THENC1=1:C2-1;C3-3:C4-1 
1056 IFLEN(AA$+BB$)-2THENC4-C4-1 
1058 IFLEN(AA$+BB$)-2ANDCC$»"12"THENC4-C 
4-1 


1060 INPUT"{CUR.GIU}4{CBM V}{2 SPCJPRONO 
STICO"j DD$ 

1062 IF D D $ = " 1"THEND1=1 :D2-1 : D 3 = 1 : D 4-1 : GO 
T01080 

1 064 IFDD$ = "X"THEND1=2 :D2-1 : D3 = 2 :D4-2 :GO 
T01080 

1066 IFDD$="2"THEND1=3:D2-1:D3=3:D4-3:GO 
T01080 

1068 IFDD$-"1X"THEND1-1:D2«1:D3-2:D4-1 
1070 IF D D $ = " 12"T H E N D1-1 :D2-2:D 3“3 :D 4 - 1 
1072 IFDD$="X2"THEND1=2 :D2-1 :D3=3:D4-2 
1074 IFDD$-"1X2"THEND1-1:D2-1:D3-3:D4-1 
1076 IFLEN(AA$+BB$+CC$)-3THEND4=D4-1 
1078 IFLEN(AA$+BB$+CC$)-3ANDDD$-"12"THEN 
D4-D4-1 

1 080 INPUT"5{CBM V}{2 SPC}PRONOSTICO";EE 
$ 

1082 IFEE$ = "1"THENE1-1 : E2 — 1 : E3 =1 : E4 — 1 :G0 
T01100 

1 084 IFEE$ = "X"THENE1=2 :E2-1 : E3 = 2 : E4-2 :GO 
T01100 

1086 IFEE$ = "2"THENE1=3:E2-1 : E3 = 3 : E 4 - 3 :GO 
T01100 

1088 IFEE$ = "1X"THENE1-1 : E 2 — 1 :E3 = 2:E4»1 
1 090 IFEE$ = "12"THENE1 = 1 :E2-2:E3“3:E4-1 
1092 IFEE$ = "X2"THENE1=2 :E2-1 :E3 = 3:E4-2 
1 094 IFEE$ = "1X2"THENE1=1 :E2-1 :E3 = 3:E4-1 
1096 IFLEN(AA$*BB$+CC$+DD$)-4THENE4»E4-1 
1098 IFLEN(AA$+BB$+CC$+DD$)-4ANDEE$-"12" 
THENE4-E4-1 

1100 INPUT"6{CBM V}{2 SPC}PRONOSTICO";FF 
$ 

1102 IFFF$ = "1"THENF1=1 : F 2 — 1 :F 3 =1 :F 4-1 :G0 
T01120 

1104 IFFF$-"X"THENF1-2:F2-1:F3=2:F4-2:G0 
T01120 

1106 IFFF$ = "2"THENF1=3:F2-1 :F3=3 :F4-3 :GO 
TOl120 

1108 IFFF$ = "1X"THENF1 = 1 :F2-1 :F3 = 2:F4=1 
1110 IFFF$»"12"THENF1=1:F2-2:F3-3tF4-1 
1112 IFFF$-"X2"THENF1-2:F2-1:F3=3:F4-2 
1114 IFFF$="1X2"THENF1-1:F2-1:F3=3:F4-1 
1116 IFLEN(AA$+BB$+CC$+DD$+EE$)=5THENF4= 

F 4 — 1 

1118 IFLEN(AA$+BB$+CC$+DD$+EE$)=5ANDFF$= 
"12"THENF4-F4-1 

1120 INPUT"{CUR,GIU}7{CBM V}{2 SPC}PR0N0 
STICO";GG$ 

1122 IFGG$ = "1"THENG1-1 :G2-1 :G3-1:G4-1tCO 
TOl140 

1124 IFGG$»"X"THENG1 - 2 : G2-1 : C-3 = 2 : G4-2 : GO 
TOl140 

1126 IFGG$-"2"THENG1=3 : 02-1 :G3 = 3:G4-3:GO 
TOl140 

1 128 IFGG$ = "1X"THENG1=1 :G2-1 :G3 = 2:G4-1 
1130 IFGG$="12"THENG1=1:G2-2:G3=3:04-1 
1132 IFCG$="X2"THENG1=2:G2-1:G3=3:G4-2 
1134 IFGG$="1X2"THENG1-1 :G2-1tG3-3:G4-1 
1136 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$)-6THE 
NG4-G4-1 
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Seguilo listato Totocalcio. 

1138 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$)«6AND 
GG$ = "12"THENG4=G4-1 

I 1 A 0 IN PUT" 8 { CBM V}{2 SPC } PRONOSTICO" j HH 

$ 

1142 IFHH$="1"THENH1-1:H2-1:H3-1:H4-1:GO 
T01160 

II A4 IFHH$«"X"THENH1 -2 : H2-1 :H3=2:H4=2:GO 

T01160 

1146 IFHH$-"2"THENH1-3:H2-1:H3-3:H4«3:GO 
TOI1 60 

1148 IFHH$ = "1X"THENH1=1 :H2-1 :H3 = 2:H4 = 1 
1150 IFHH$="1 2"THENH1 -1 ; H2-2 :H3 = 3: H4-1 
1152 IFHH$-"X2"THENH1 =2:H2«1 :H3=3:H4=2 
1154 IFHH$-"1X2"THENH1-1:H2-1:H3-3:H4-1 
1156 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$+GG$)- 
7THENH4-H4-1 

1158 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$+GG$)- 
7ANDHH$«"12"THENH4-H4-1 
1160 INPUT"9{CBM V}{2 SPC}PRONOSTICO"; 11 
$ 

1162 IFII$-"1"THENI1«1:I2-l:I3-1:I4-1:GO 
TOI180 

1164 IFII$-"X"THENI1-2:I2-1:I3-2:14-2:GO 
TOI180 

1166 IFI1$-"2"THEN11=3:12-1:I3-3:I4-3:GO 
TOI180 

1168 IFII$-"1X"THENI1-1:12-1 :13-2:14-1 
1170 IFII$-"12"THENI1-1 :12-2:13-3:14-1 
1172 IFII$-"X2"THENII-2:1 2-1 :13-3:14-2 
1174 IFII$-"1X2"THENI1-1112-1:13-3:14-1 
VI 76 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$+GG$+H 
H$)-8THENI4-I4-1 

1 178 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$+GG$+H 
H$)=8ANDII$="12"THENI4»I4-1 
1180 INPUT" {CUR .GIU}1 0 {CBM V) PRONOSTICO 
" ;LL$ 

1182 IFLL$ = "1"THENL1 =1 : L2-1 : L3= 1 : L4-1 : CO 
TOI200 

1184 IFLL$-"X"THENL1-2:L2-1:L3-2:L4-2:GO 
TOI200 

1186 IFLL$-"2"THENL1-3:L2-1:L3«3:L4-3:GO 
TOI200 

1188 IF L L $ - " 1X"THENL1»1: L2- 1 :L3-2:L4-1 
1190 IF L L $ - "12 " T H E N L1-1:L2-2:L3=3:L4-1 
1192 IFLL$»"X2"THENL1=2:L2-1:L3-3:L4-2 
1194 IF L L $ - "1X2"THENL1-1 :L2-1 :L3-3 :L4 - 1 
1196 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$+GG$+H 
H$ + II$)-9THENL4-L4-'1 

1198 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$+GG$+H 
H$+II$)-9ANDLL$-"12"THENL4=L4-1 
1200 INPUT"11 {CBM V) PRONOSTICO";MM$ 

1202 IFMM$-"1"THENM1-1:M2-1:M3-1:M4-1:GO 
TOI 220 

1204 IFMM$-"X"THENM1=2:M2-1 :M 3- 2 :M4 -2 : GO 
TOI220 

1206 IFMM$-"2"THENM1=3:M2-1 :M3-3 :M4 - 3 :GO 
TOI220 

1 208 IFMM$-"1X"THENM1=1 :M2-1 :M3-2:M4-1 


1210 IFMM$-"1 2"THENM1 -1:M2-2:M3-3:M4-1 
1212 IFMM$="X2"THENM1 -2 :M2-1 :M3-3:M4-2 
1214 IFMM$="1X2"THENM1-1:M2-1:M3-3:M4-1 
1216 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$+GG$ + H 
H$+II$+LL$)=10THENM4=M4-1 
1220 INPUT"12{CBM V) PRONOSTICO";NN$ 

1 222 IFNN$-"1"THENN1-1 :N2-1 :N3-1 :N4 -1 : GO 
TOI240 

1224 IFNN$-"X"THENN1-2:N2«1:N3-2:N4-2:G0 
TOI240 

1226 IFNN$-"2"THENN1-3:N2-1:N3=3:N4«3:GO 
TOI240 

1228 IFNN$="1X"THENN1-1:N2-1:N3-2:N4-1 
1230 IFNN$-"12"THENN1-1:N2-2:N3-3:N4-1 
1232 IFNN$ = "X2"THENN1-2 : N2 = 1 :N3-3:N4-2 
1 234 IFNN$-"1X2"THENN1-1 :N2-1 : N 3-3 :N 4-1 
1236 IFLEN(AA$+BB$ + CC$+DD$+EE$+FF$ + GG$+H 
H$+II$+LL$+MM$)»11THENN4=N4-1 
1 240 IN PUT " 13{CBM V) PRONOSTICO "; 00$ 

1 2 42 IF00$-"1"THEN01-1 : 02-1:03-1:04-1:GO 
TOI260 

1 244 IF00$-"X"THEN01-2:02-1 : 03 = 2 : 04-2 :GO 
TOI260 

1 24 6 IF00$ = "2"THEN01 -3:02=1 : 03 = 3 : 04- 3 :GO 
TOI260 

1248 IF00$ = "1X"THEN01 -1 : 02 = 1 :03 = 2:04-1 
1250 IF00$-"12"THEN01-1:02=2:03»3:04-l 
1252 IF00$-"X2"THEN01-2:02=1:03-3:04-2 
1 254 IF00$ = "1X2"THEN01-1 : 02=1:03 = 3:04-1 
1256 IFLEN(AA$+BB$+CC$+DD$+EE$+FF$+GG$*H 
H$+II$+LL$+MM$*NN$)=12THEN04-04-1 
1 260 PRINT"{3 CUR.GIU){4 CUR . DES } CONFERM 

1 (S/N)?" 

1265 GETQW$:IFQW$=""THEN1265 
1270 IFQW$-"N"THENRUN8 
1275 IFQW$-"S"THENPRINT"{CLR ) ": RETURN 
1 280 GOT01265 

1 290 PRIUT"ICUR .SU ) {6 SPC}TOTOCALCIO{CUR 
.GIU)" 

1 300 INPUT"NUM. MASSIMO DI 1"; AB 
1 305 IF A B>13ORAB<0THENPRINT"{CLR)":G0T01 
290 

1310 INPUT"{CUR.GIU}NUM. MINIM0{2 SPCJDI 

1 " [BA 

1315 IFBA<OORBA>13THENPRINT"{CLR) " :G0T01 
290 

1 320 INPUT"{CUR .GIU}NUM . MASSIMO DI X";C 
D 

1325 IFCD>130RCD<OTHENPRINT"{CLR)":G0T01 

2 90 

1330 INPUT"{CUR.GIU}NUM . MINIM0{2 SPC)DI 
X" jDC 

1 3 35 IFDCCOORDOI 3THENPRINT" {CLR ) " : G0T01 
290 

1340 INPUT"{CUR.GIUJNUM. MASSIMO DI 2":E 
F 

1345 IFEF>130REF<0THENPRINT"{CLR)":G0T01 
290 

1350 INPUT"{CUR .GIU }NUM. MINIM0{2 SPC)DI 

2 " ; F E 




Totocalcio: sviluppo colonnare condizionato 



Seguito listato Totocalcio. 


1355 IFFE<00RFE>1 3THENPRINT"{CLR} " : G0T01 
290 

1 360 P R IN T " { 3 CUR.GIUH3 CUR.DES1C0NFERM 
I (S/N)?" 

1370 GETRF$ : IFRF$“ " "THEN1 370 

1 380 IFRF$="S"THENPRINT"(CLR)" : RETURN 

1390 IFRF$»"N"THENPRINT"{CLR) ": G0T01 2 90 

1395 G0T01370 

1500 PRXNTCHR$(1M) 

1501 PRINT"{CLR}{CUR . GIU}{SH I)L PROGRAM 
MA E' Gl A 1 12 SPCHCUR.GIUlPREDISPOS 
TO AD ELIMINA{CUR.GIU}RE LE COLONNE 

CON PIU”' 

1502 PRINT"DI TRE '1' CONSECUTIVI" 

1505 PRINT", CON PIU' DI TRE ’ X ' {CUR.GI 
U } CONSECUTIVI , CON PIU' {CUR.GIUjDI 
DUE ' 2 1 CONSECUTIVI" 

1510 PRINT" (SH C}HI VOLESSE VARIARE QU(C 
UR.GIU}ESTO CONDIZIONAMENTO {CUR.GI 
U) CAMBI LE LINEE DAL 112 {CUR.GIU} 
AL 116" 

1515 FORYY»1T020000 : NEXT 


1520 PRINT"{CLR){CUR.GIU){SH L}E COLONNE 
VENGONOICUR.DES) VIlCUR.GIUjSUALIZ 
ZATE A GRUPPI DI{CUR.GlU}QUATTRO,SE 
DICI COLONNE" 

1 525 PRINT"PER OGNI SCHERMATA.12 SPC){CU 
R.GIU) {SH PIER VISUALIZZARE ALTRE{ 
CUR.GIUlSEDICI COLONNE , PREMERE" 

1527 PRINT"LA BARRA SPAZIO" 

1530 FORYY*1T015000: NE XT 

1532 PRINT"{CLR}{CUR.GIU}{CUR.DESI{SH 1} 
L PRONOSTICO VIENE {CUR.GIU} ACCETT 
ATO NELLE FORME{2 SPC}{CUR.GIU } '1' 

'X' *2’ PER LE {CUR.GIU} FISSE" 

1534 PRINT"{CUR.GIU)'1X’ '12' 'X2' PER L 

E {CUR.GIU}DOPPIE" 

1536 PRINT"(CUR.GIU)'1X2' PER LA TRIPLA" 
1 538 PRINT" {2 CUR.GIUHSH A } LTRE COMBINA 
ZIONI DI{2 SPC}{CUR.GIU} SEGNI DARA 
NNO UNO" 

1 539 PRINT" {CUR.GIU } {2 CUR . DES}SV I LU P PO 
ERRATO DEL {CUR.GIU} SISTEMA" 

1540 FORY=1T020000:NEXT 
1545 PRINTCHR$(142) 

1550 RETURN 




II 


NEL PROSSIMO 

NUMERO 

TROVERETE 


G RAND PRIX F AR-WEST 

PER C 64 CON VIC 20 



Progettazione 

FILTRI ATTIVI 
CON LO SHARP 


Sprite 

PER DISEGNARE 
CON LO 
SPECTRUM 


M 

EDICOLA 

DAL 



NOVEMBRI 


Big-vis 

PER M 20 


Battaglia 

GALATTICA 
CON APPLE 
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“Integrai” Telenorma 

Tclenorma S.p.A. ha presentato allo SM AU 
'85 la linea “Integrai”, costituita da centrali di 
telecomunicazione private c standard ISDN, 
terminali numerici di comunicazione integrata 
fonia/dati e interfacce per inserzione in rete di 
terminali dati c computer. La vendita sul mer¬ 
cato italiano avrà inizio a partire da metà 1986 . 
Èquesta la proposta più moderna per l'automa¬ 
zione dell’ufficio, basata su PABX numerico 
per fonia/dati, rete locale di semplice doppino 
telefonico, posti di lavoro multifunzionali c 
compatibilità con sistemi preesistenti di infor¬ 
matica distribuita. 

Da 80 anni leader nella comunicazione telefoni¬ 
ca, Telcnorma presenta anche le sue nuove 
serie di telefoni comfort, con servizi incorpora¬ 
ti c multilinee. 

Telenorma S.p.A. 

Via Gargano, 7 
201)9 Milano 
Tel. 02 * 1 ) 922)6 



CIS Revolution PAL, 
un prodotto VTR 

RGB Computer Graphics c l’unico graphics 
center in Italia a commercializzare un’interfac¬ 
cia hardware, messa a punto da VTR-MI, che 
consente di videorcgistrarc in sistema PAL c di 
entrare in un vidcomixcr con segnale in uscita 
dalla scheda Revolution Numbcr Ninc. 
L’interfaccia CIS Revolution PAL c l’unico 
sistema con output video PAL Broadcast sin¬ 
cronizzabile per la messa in onda del segnale da 
stazione TV c per la videoregistrazione delle 
immagini con animazione da computer, anima¬ 
zione realizzabile tramite Animate IL Distri¬ 
buito in esclusiva da RGB Computer Graphics. 


La linea floppy disk TDK 

A soli pochi mesi dall’accordo con un grande 
della tecnologia microinformatica giapponese, 
la Epson Corp., un altro importante accordo si 
inserisce nella strategia di distribuzione della 
Epson-Scgi: l’acquisizione, in esclusiva per l’I¬ 
talia, della linea floppy disk della TDK Corp. di 
Tokyo. 

L’accordo riveste particolare rilevanza in quan¬ 
to la TDK, già leader mondiale nello sviluppo c 
produzione di materiale magnetico per regi¬ 
strazione audio e video, accede ora anche al 
mercato italiano dei floppy disk. 

La TDK ha riversato tutto il suo know-how 
nella produzione di floppy disk che attualmente 
rappresentano lo stato dell’arte nel settore dei 
media magnetici per la conservazione delle in¬ 
formazioni digitali. 

Quest’ultimo passo è il risultato di un lungo 
cammino di ricerca, cominciato in TDK parec¬ 
chie decine di anni or sono. Tra le tappe fonda¬ 
mentali è utile ricordare la realizzazione nel 
1973 di un nuovo materiale, l’A viiine, conside¬ 
rato unanimamente come uno dei supporti di 
ricopertura dei nastri magnetici più adatti e di 
più lunga durata nel campo della registrazione 
magnetica. Proseguendo nella sua politica in¬ 
novativa attraverso la creazione di materiali 
sintetici sempre più nuovi e adatti alla ritenzio¬ 
ne di informazioni magnetiche, la TDK ha 
studiato per i propri floppy disk un nuovo tipo 
di ossido ferroso, che consente di ottenere ca¬ 
ratteristiche di durata ed affidabilità prima sco¬ 
nosciute. 

11 nuovo materiale ricoprente conferisce ai 
floppy disk eccellenti doti di stabilità magneti¬ 
ca ed eccezionali prestazioni, consentendo 
un’affidabilità senza precedenti. Dal momento 
in cui le informazioni sui dischi magnetici ac¬ 
quistano sempre più valore ed importanza, la 
TDK rappresenta la sicurezza di un supporto 
affidabile e durevole, che riduce a zero la pro¬ 
babilità di perdite casuali di dati. 

Realizzati già da lungo tempo e distribuiti sui 
maggiori mercati mondiali, i floppy disk TDK 
saranno presto disponibili sul mercato italiano, 
grazie alla sensibilità della Epson-Segi, da sem¬ 
pre distributrice per il nostro mercato dei mi¬ 
gliori prodotti per l’informatica. 


RGB Computer Graphics S.r.l. 
(Società del Gruppo VTR) 
Viale Piare, 1 / - 20/29 Milano 
Tel. 02 -/ 9 ) 22 )- 98)992 


Segi S.p.A. 

Via Timavo, 12 
30124 Milano 
Tel. 0216/091)6 



58 















m)r)* 1)(?5K 


l’agenda totale 

Front Desk organizza il tempo. Il vostro tempo. 


Potete inserire e modificare in un attimo impegni ed 

- appuntamenti, od avere un colpo-d'-oc ch i o sull a gior - 
nata, la settimana, il mese corrente e quelli a venire. 
Eduttreal vostro dempo; Front Desk può organizzare 

quello di altre 14 persone, con tutti i loro impegni. 


Non solo per appuntamento Front Desk cerca e trova 


Front Desk non serve 
-soltanto come agenda personale. 
Jn effetti, potete usarlo per 


quafunque risorsa: dalla. 

sala riunioni all'auto di 


Front Desk vi aiuta a sfruttare meglio 
-il vostro tempo~e-fe-vostre risorse. 

Ma Front Desk è anche in grado 


rappresentanza. Dato 
chejDotete sempre' 

confrontare in un attimo 
la disponibilità di 
- p e rsone e-risorse r - 

Front Desk vi evita 
sprechi, perdite di 
tempo e brutte, figure. 
Con Front Desk potete 

una riunione, senza far 
perdere tempo a chi ne 
-hagià^pocoa - 


disposizione. 


di trovare velocemente 
una data informazione, 

ad esempio il prossimo 
~appnntamento~con~un 

certo cliente. O il 


prossimo giovedì con 
—undraOberaintorno 
alle 10.00 il tempo che 
aVedededfcatoìf mése 

_ scorsoia quel tal _ 

progetto. O il periodo 
igliore per andare in 
vacanza. 

Front Desk e l'agenda 


che trova. 


W software di qualità 

Vj.SOft 


14 VEffEP 

JOBWARE FOR MACINTOSH. 


L'acquisto di software originale significa garanzia di prodotto, possibilità di sostituzione anche nel caso di versioni 
aggiornate o di versioni nazionalizzate Esigete sempre software originale 

Viole Restelli, 5 • 20124 Milano Tel. 02/6888228 683797 • 6880841 6880842 6880843 








































































Apple 


Cambio programmi per Macintosh e Apple II. 
Massima serietà, rispondo a tutti. Mauro Tazza- 
ri - Via Atalarico, 52 - 48100 Ravenna - Tel. 
0544/37678 


Cambio software per Apple e per IBM. Per mag¬ 
giori informazioni speditemi la vostra lista. Da¬ 
niele Fabbro - Via Villa, 52 - 38050 Villa Agnedo 
(TN)-Tel. 0461/767439 


Cerco possessori sistemi Apple per scambi di 
materiale e per creare un club valdostano. Con¬ 
tatterei comunque altri club e privati in Italia. 
Marco Consolati - Via Conte Crotti. 27 - 11100 
Aosta - Tel. 0165/55384 


Commodore 


Vendo per C64 II primo numero di “7 Note BH" 
con rivista, tastiera musicale e programmi per 
suonare subito. Vendo inoltre programma origi¬ 
nale "Personal Magia" con libro; programma 
originale “Coco" su cassetta e su disco: casset¬ 
ta con renumber. merge/append professionali: 
Koala Painter, Decathlon, Solo Flight. Cedo tutto 
a L. 35.000 più spese di spedizione. Telefonare 
ore serali a: Alberto Corti - Via Cairoli, 3/A - 
20059 Vimercate (MI) - Tel. 039/668347 


Il Club Charly Software propone a tutti i posses¬ 
sori di personal computer VIC 20 e C64 scambi 
di idee, esperienze, consulenze e programmi. 
Scrivere. Carlo Vincenzi - Via Resistenza. 26 - 
41033 Concordia S/S (MO) - Tel. 0535/54325 


Vendo VIC 20 più registratore, 17 cassette; car- 
tridge Draw, Poker, Adventureland, Menagerie, 
Superslot; libro "20 programmi per VIC 20” e 
joystick. Il tutto a L. 180.000. Fabio Alfieri - Via 
Giacomo Brodolini, 2 - 05100 Terni - Tel. 
0744/284885 


Vendo bellissimi giochi per VIC 20 e C64. Adven- 
ture (in italiano), simulatori di volo di aerei ed 
elicotteri, Simons' BASIC, ecc. In regalo un pro¬ 
gramma per sbalordire i vostri amici. Per infor¬ 
mazioni e lista rivolgersi a: Fiorindo Costa - Via 
Vittorio Veneto, 26 - 33081 Aviano di Pordenone 
(PN) 


Desidero contattare In zona Bologna utenti C64 

per scambio di programmi, idee, trucchi, libri, 
riviste e formazione di un club utenti C64. Fabri¬ 
zio Nardi - Via Bonavia, 6 - 40068 - S.Lazzaro di 
Savena (BO) - Tel. 465085 


Vendo al miglior offerente i seguenti program¬ 
mi: Simons' BASIC, ExBASIC, Tool-kit 2, Super- 
mon 64, FORTH 64, GPascal, Composer, 64 Doc- 
tor, Copy 190, Ghostbusters. Decathlon. Telefo¬ 
nare o scrivere a: Fabrizio Cara - Via Doganella. 
19 - 00013 Tor Lupara (Mentana) (RM) - Tel. 
9059660 


Cerco utenti del C64 per eventuale scambio di 
programmi con la Svizzera. Inviatemi la vostra 
lista, assicuro massima serietà e risposta a tutti. 
Tiziano Lombardo - Via A. di Sacco, 5 - 6500 
Bellinzona - Svizzera - Tel. 004192/258623 


Cambio 200 programmi su cassetta e su disco 
per C64. Se interessati inviate le vostre liste. 
Fernando Stocco - Via Roma, 216 - 35015 Gallie- 
ra Veneta (PD) - Tel. 049/5969834 


Per acquisto errato vendo Iceplc originale e 
SpeeDOS Plus per C64. Scrivi o telefona a: Giu¬ 
seppe Borracci - Via Mameli. 15 - 33100 Udine - 
Tel. 0432/291665 


Vendo C16 più registratore, joystick, espansio¬ 
ne 16 Kbyte e cassette giochi originali a L. 
300.000. Il computer è ancora in garanzia. Davi¬ 
de Valenti - Via Giaggioli. 12 - 20089 Rozzano 
(MI)-Tel. 02/8250742 


Vendo C16 (Gennaio '85) completo di registrato¬ 
re, manuale in italiano, joystick e programmi, di 
cui uno in cartuccia, a L. 200.000. Lorenzo Dalla 
Cort - Via Dante Alighieri, 4 - 33077 Sacile (PN) - 
Tel. 0434/733345 


Attenzione! Vendo VIC 20 ottimo stato più regi¬ 
stratore, giochi, joystick, giornali, Ok List e LMX 
a L. 160.000 trattabili. Telefonare dalle ore 13.30 
alle ore 19.00. Mario Orru - Via B. Bini Zona San 
Nicola - 07026 Olbia (SS) - Tel. 23546 


Vendo Vlzastar per Commodore 64 composto da 
disco, cartridge. manuale Italiano; tutto a L. 
100.000. Telefonare dopo le 20.00. Eliseo Ma- 
strangelo - Via Casilina, 1641 - 00133 Roma - Tel. 
06/6151345 


Cerco Commodore Club possibilmente a Paler¬ 
mo a scopo iscrizione. Cinzia De Vennato - Via 
Monte Bonifato, 1 - 90144 Palermo - Tel. 
091/521177 


Cedo baracchino 23 + 23 5W, alimentatore linea¬ 
re 60 W per VIC 20 e registratore. Chiedo e 
permetto qualsiasi prova funzionamento. Solo 
zona Roma. Silvano Funghi - Via Cola di Rienzo, 
5 - 00047 Marino Laziale (RM) - Tel. 06/9386320 


Vendo CI 6 seminuovo con registratore, joy¬ 
stick, 5 giochi, 2 cassette vergini, un libretto 
"Come programmare"; il tutto a L. 200.000. Fe¬ 
derico Bartoli - Via Caprera, 15 - 22053 Lecco 
(CO)-Tel. 373468 


Cambio programmi per C64 e molti manuali. 

Rispondo solo a chi vuole scambiare e invia la 
propria lista. In particolare sono interessato a 
programmi scientifici e di simulazione. Carlo 
Miggiano - Via Liside. 8 - 70126 Bari - Tel. 
080/337989 


Sinclair 


■ Cambio programmi per Spectrum. Dispongo ■ 
J di: The Blz, Rocky Horror, Gremlins, Broad * 

■ Street. Formula One e moltissimi altri. Mas- • 

■ sima serietà, per ricevere la lista gratuita ■ 

■ scrivere a: Massimo Carosi - Via D. Forte ■ 
2 Tiburtino. 88 - 00159 Roma 


Cambio software per Spectrum. Vendo inoltre 
joystick Spectravideo 102 in ottimo stato. Davide 
De Martini - Via Trento. 95 - 32030 Pedavena 
(BL) 
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SOUNtftgfBUGGY 


DA OGGI È MUSICA PER TUTTI 


nuo videa 











A TUTTA MUSICA CON 


SOUNDt^S 


Musica dal calcolatore, musica 
vera, completa, definitiva: da ascoltare 
con gli amici. Ed c musica tua! 

Con l’unità periferica SOUND 
BUGGY e la tastierina musicale SIEL 
da appoggiare sopra la tastiera 
alfanumerica, il tuo Commodore 64 si 
trasforma in una autentica band e tu 
diventi subito concertista, compositore 
e arrangiatore. 

Musicista in pochi giorni 
Se sei già esperto di musica, SOUND 
BUGGY ti porterà alla perfezione. Se 
sei principiante, ti troverai in pochi 
giorni di fronte a un miracolo: 
comporrai musica tua e potrai 
ascoltarla in una perfetta registrazione 
elettronica collegabile a ogni impianto 
stereo, videotelevisivo, monitor C64. 


Un pacchetto di programmi che 
concentra anni di studio 
Grazie al consistente, straordinario 
software di Sound Buggy, potrai 
eseguire o comporre su 24 ritmi 
(12 preregistrati), disponendo di ben 
28 timbri strumentali (14 preregistrati), 
potendo correggere, migliorare, variare 
e disporre quindi per la registrazione 
definitiva. 

Tramite interfaccia MIDI, 

SOUND BUGGY comunica anche con 
gli altri strumenti musicali elettronici 
(expander, sintetizzatori, sequencer 
ccc.). SOUND BUGGY è un prodigio 
deU’elcttronica al servizio della 
creatività. 




Spia luminosa 
di corretta 


alimentazione 



Volume per la batteria 
elettronica 


Volume per la parte 
orchestrale 


Volume generale 


MAXIPRES TAZIONE IN MINISPAZIO 

Il tuo laboratorio musicale, completo e perfetto, è 
tutto qui: il Commodore 64, il SOUND BUGGY, 
la minitastiera SIEL. il software. 



LA QUALITÀ 
DELLA MUSICA 











BUGGY 


NANE 





CEDOLA PRI VILEGIATA DI ACQUISTO 

SOUND BUGGY 


Indicare con una X il D che interessa 

Sì desidero acquistare 
SOUND BUGGY, la vostra 
unità periferica per C64. 
Speditemela contrassegno 
completa del pacchetto 
software sia su disco che su 
cassetta e libretto istruzioni 
al prezzo speciale di 
Lire 185.000 (incluse 
L. 27.650 IVA e L. 3.750 di 


spese postali). 

È inteso che il mio SOUND 
BUGGY sarà coperto da 
Garanzia per 1 anno. 

_i Sono interessato alla unità 

periferica per C64 
SOUNDBUGGY 
e vi prego di volermi fornire 
informazioni più dettagliate. 


NOME. 


12 MESI DI GARANZIA 

_COGNOME_ 


INDIRIZZO. 
CAP_ 


-LOCALITÀ. 


DATA. 


-FIRMA. 


DATI FACOLTATIVI 


Iper i minori occorre quello del genitore) 


-PROFESSIONE. 


TITOLO DI STUDIO. 


Rhythm Menu 

Visualizza tutti i 24 ritmi e 
mostra come SOUND BUGGY 
li esegue alla batteria 
elettronica. La batteria è 
programmabile per: Boss 
Drum IgrancassaI, Cymbal 
Short Ipiatto apertoI Cymbal 
Long Ipiatto chiuso), Snare 
Drum Itamburo rullante) e Rim 
Shot Icerchio rullante). 


Solo Menu 

Elenca tutti i 28 timbri e 
visualizza i parametri con cui il 
sint SOUND BUGGY li 
sviluppa. 

Song Edit 

È il cuore del SOUND BUGGY 
e permette di dirigere 
orchestra". Infatti consente 
di intervenire in tempo reale, 
modificando i parametri 
relativi a.- Solo, Rhythm, 
Accompaniment, Sequencer. 


Main Menu 

Massima semplicità d'impiego 
del software grazie alla 
standardizzazione dei 
comandi. Il Main Menu 
presenta il quadro 
complessivo delle funzioni 
musicali utilizzabili premendo 
i comandi indicati. 


Compila e spedisci l'unita 
Cedola Privilegiata. È 
l'unico mezzo per ricevere 
SOUND BUGGY. 
completo di tutti i 
programmi, su disco e 
cassetta, a un prezzo 
speciale, direttamente a 
domicilio e con 
12 mesi di Garanzia. 


AFFRETTATI! 


Il prezzo è bloccalo solo 
fino al31-12-'85. 










































TUTTA 


A COMANDO! 


A tua disposizione hai gli strumenti, i ritmi, i tempi, gli accordi, gli 
arpeggi, gli effetti mixati, come una grande, insperata tavolozza di 

M m m m t r* • m suoni. Ma lutto questo resterebbe muto senza l’intervento 
MUÒICA della ,ua creat ' v > l à: sotto la guida del tuo estro musicale. 

seguendo le facilissime istruzioni dei programmi, 
prenderà vita sotto le tue mani dapprima la musica 
che vuoi produrre, poi la tua musica. 


Sequencer 

È una funzione polifonica che ti permette di 
comporre e registrare in tempo reale fino a 9 song 
in linea, archiviarle su disco e creare così 
una discoteca da richiamare a tuo piacere. 


Rhylhm 

Un’intera batteria elettronica 
al tuo comando con tre parametri 
modificabili: Start, Tempo, 
Key-Start. C’è anche il Down 
Beat che, come un metronomo, 
visualizza le battute musicali. 



Accordi 

Grazie a due sofisticate tecniche 
di sviluppo, basta un dito per 
esplorare tutte le possibilità 
armoniche di base e creare accordi 
automatici. 

Orchestrazioni 

Creato l’accordo 
il SOUND BUGGY si fa in 
quattro: basso, batteria, 
arrangiamento con arpeggio e 
accompagnamento ritmato 
trasformandoti in direttore d’orchestra. 





Ha anche una grande tastiera. 



Con la piccola tastiera sovrapposta 
a quella del computer, SOUND 
BUGGY ti dà tutto ciò che puoi 
chiedere al tuo gusto musicale. Ma con 
la grande tastiera SIEL CMK 49 a passo 
professionale, l’elettronica ti offre una 
ricchezza musicale assoluta, con la 
possibilità di impostare la tua musica a 
due mani su un’unica tastiera, come nel 
classico pianoforte. 


Con CMK 49 puoi diventare 
un vero tastierista. 

Qualsiasi altra tastiera collegabile 
al tuo Commodore 64 diventa “magica” 
con SOUND BUGGY: perchè il suo 
software è universale. 


■“I 




SOCIETÀ INOUSTR1E ELETTRONICHE I p.«. 


CASELLA POSTALE 10823 
20124 Milano MI 


WOI 


(Musical Instruments 
Digital Interface) 



Grazie a questo 
linguaggio comune tra 
sintetizzatori 
professionali, SOUND 
BUGGY è in grado di 
parlare con 4 tastiere 
professionali o 
expander creando delle 
orchestrazioni di 
eccezionale qualità 
timbrica. L’importanza 
di questo fattore è ben 
conosciuta dal 
musicista esperto; per 
chi lo vuol diventare 
SOUND BUGGY sarà 
una meravigliosa 
scoperta. 

AVVISO 

IMPORTANTE 

Il SOUND 

BUGGY è acquistabile 
esclusivamente tramite 
il coupon privilegiato 
di questa offerta. Tutti 
gli altri strumenti 
elettronici SIEL sono 
in vendita presso i 
migliori Negozi di 
strumenti musicali. 

Se siete interessati 
rivolgetevi a loro. 
Oppure, se desiderate 
altre informazioni, 
scrivete a 
“Filodiretto SIEL” 
Casella Postale 10823 

20124 Milano MI, 



SIEL S.p.a. 

Stampa propagandistica 
Semestrale n. 1. II semestre 
1985. Sped. Abb. Postale V 
Gruppo. Vendite per 
Corrispondenza. Proposta, 
accettazione, prezzo e invio del 
prodotto si realizzeranno 
attraverso i Servizi Postali. 
C.C.P. n. 12829636. 









































Vendo per ZX Spectrum il fantastico Trans Ex¬ 
press 1 e 2, capace di trasferire programmi da 
tape a microdrive, da microdrive a microdrive, 
da microdrive a tape, da tape a tape a sole L. 
20.000. Per informazioni scrivere o telefonare a: 
Maurizio Ferranti - Via Roma, 28 - 20040 Capo- 
nago (MI) - Tel. 02/9586339 


Cambio software per Spectrum 16-48 Kbyte, di¬ 
sponibile in parte su cassetta e in parte su mi¬ 
crodrive. Scrivere o telefonare a: Antonella Sar¬ 
tori - Vìa Foresti, 18 - 29100 Piacenza - Tel. 
0523/73715 


Compro, cambio software per QL. Richiedete 
l’elenco dei miei programmi indicando le vostre 
disponibilità. Gianfranco Baliello - Cannaregio 
3829 - 30121 Venezia - Tel. 041/2874 


Texas 


Cambio per TI 99/4A programmi su cassetta in 
Extended BASIC ed Assembler. Acquisto, solo 
se vero affare, box completo di drive. Giuseppe 
Mariani - Via Giulia, 1 - 67039 Sulmona (AQ) - 
Tel. 0864/52067 


Per TI 99/4A vendo modulo Extended BASIC a L. 
160.000 e moduli Parsec e Wumpus a L. 30.000 
ciascuno. Maurizio Ortolani - Via Dante Alighie¬ 
ri, 41 -61100 Pesaro 


Compro per TI 99 Interfaccia RS-232 da inserire 
nel box. Telefonare dalle 9.00 alle 21.00 a: Vale¬ 
rio Ferrari - Via Casella, 23/c - 37051 Bovolone 
(VR) - Tel. 045/7100835 


Vendo TI 99/4A più Extended BASIC, minimemo- 
ry, manuale Editor /Assembler, modulo Moon 
Mine, traduzione Extended BASIC, molte cas¬ 
sette. Telefonare ore ufficio allo 049/84249 op¬ 
pure ore 20.00-21.00 solo se veramente interes¬ 
sati. Roberto Zin - Piazzale G. Marconi, 10/B - 
30030 Fossó (VE) - Tel. 041/466950 


Vendo TI 99/4A più Extended BASIC, mlnimemo- 
ry, 2 moduli SSS. libri e programmi a L. 650.000 
trattabili. Solo zona Palermo. Fabrizio Lo Mona¬ 
co - Via Prìncipe di Belmonte, 94 - 90139 Paler¬ 
mo - Tel. 091/321098 


Acquisto scheda Pascal ed accessori a prezzo 
conveniente, drive esterno con alimentatore. 
Clelia Romano - Piazzale Corvi, 7 - 25100 Bre¬ 
scia 


Per TI 99/4A vendo modulo SSS “Personal Re- 
cording Keeplng” e manuale a L. 350.000. Sergio 
Perrone - C. alla Vittoria, 40 - 14100 Asti - Tel. 
0141/53862 


Vendo per TI 99/4A minimemory più manuali, 
cassetta, fotocopie manuale Editor/Assembler, 
cassetta con programmi Assembler da BASIC e 
Disassembler a L. 130.000. Sergio Perrone - Via 
C. Vittoria, 40 - 14100 Asti - Tel. 0141/53862 


Cerco manuale Edltor/Assembler (anche foto¬ 
copie) per TI 99. Aiuto! Sono disperato! Nicola 
Mitolo - Via Madonna delle Grazie, 8 - 50135 
Firenze-Tel. 055/697243 


Vendo TI 99/4A più consolle, pheripheral box, 

disk drive, RS-232 ser./par., espansione di me¬ 
moria, monitor Philips, Extended BASIC, As¬ 
sembler. software vario, manuali; tutto origina¬ 
le, a L. 1.500.000. Alessandro Casacchia - Via S. 
Croce in Gerusalemme. 94 - 00185 Roma - Tel. 
06/7590957 


Vendo espansione 32 Kbyte più Extended BA¬ 
SIC originale completo di manuale. 3 moduli 
SSS (Scacchi, Personal Record Keeping, Zero 
Zap), 2 cavi registratore, cassetta “Impara il TI 
BASIC". In blocco a L. 450.000 trattabili e in 
omaggio cassette software e computer riparabi¬ 
le con modulatore. Vendesi anche separata- 
mente espansione 32 Kbyte più Extended BASIC 
a L. 320.000 trattabili. Marco Pasquali - Via Ma¬ 
scagni. 11 - 20014 Nerviano (MI) - Tel. 
0331/585621 


Vendo in blocco al miglior offerente TI 99/4A più 
Extended BASIC, box espansione, espansione 
32 Kbyte, disk drive, RS-232, garanzia da spedi¬ 
re. manuali, libri in italiano. Giovanni Binda - Via 
Pv. Volta, 14/1 - 22054 Mandello Lario (CO) - Tel. 
0341/73584 


Varie 


Cambio programmi e manuali per IBM XT/PC e 
compatibili. Offro e chiedo la massima serietà. 
Maurizio Mellone - Via Sabbionara, 9 - 36061 
Bassano del Grappa (VI) - Tel. 0424/20015 


Cerco giochi su cassetta anche duplicati per 
Atari 800XL. Compro monitor e disk drive Alari 
1050. Telefonare ore pasti. Lucio Ciccarone - Via 
P. Vitiello, 73 - 84018 Scafati (SA) - Tel. 
081/8639142 


Cerco software di ogni tipo per IBM PC. Annun¬ 
cio sempre valido. Scrivere o telefonare a: Lore- 
no Parolo - Via Bramante. 12-27100 Pavia - Tel. 
0382/25086-303634 


Vendo a L. 50.000 cartuccia Fast Load della Epix. 
Velocizza 5 volte il caricamento dei programmi 
ed è compatibile con il 99% di essi. Contiene un 
monitor LM, un edit disk, alcuni copiatori. Istru¬ 
zioni in italiano. Alfredo Dal Ferro - Via Fornace. 
3 - 21040 Castronno (VA) - Tel. 0332/495989 


Vendo Amstrad CPC 464 con monitor verde, libri 
dedicati di valore, software originale inglese a 
L. 700.000. Materiale perfetto, senza un graffio, 
disponibile per prove. Luigi R. Callegarl - Via A. 
De Gasperi, 47 - 21040 Sumirago (VA) - Tel. 
0331/909183 


■ Vendo Atari 800XL più registratore Atari ■ 

■ 1010, tavola grafica, 2 cassette giochi, 3 car- ■ 
§ (ucce giochi, 2 libri, imballi e garanzie origi- m 

■ nali. Tutto al prezzo pazzesco di L. 700.000 ■ 

■ trattabili. Gianni Penasa - Via Pradalago, 10 ■ 
! - 38084 Madonna di Campiglio (TN) - Tel. ! 

■ 0465/42726 


Vendo cassetta Alari BASIC Programming più 

tastiere in stato eccellente a L. 50.000 trattabili. 
Scrivere o telefonare a: Marco Novelli - Via Pie¬ 
tro Fedele. 60 - 00179 Roma - Tel. 06/787844 



Dalla 

grande 

edicola 

Jackson 

Tutto sul personal 
computer 

PC 

L'unica rivista italiana dedicata ai sistemi 
MS-DOS. Personal computer IBM e 
compatibili. 

11 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L. 44.000 

Personjalj 

L'unica rivista indipendente per gli utenti del 
personal computer Olivetti. 

11 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L. 42.000 

axviPtsaJOLA 

La rivista di informatica nella didattica per la 
scuola italiana 

9 numeri all'anno: L. 3.000 a numero 
Abbonamento: solo L. 20.000 

computer 

Una novità assoluta per l'editoria 
tecnico-scientilica, studiata appositamente 
per i medici, la Rivista di personal computer, 
altari personali e tempo libero. 

11 numeri all’anno: L. 5.000 a numero 
Abbonamento: solo L. 45.000 



La prima rivista europea di personal 
computer, software e accessori. Con test, 
novità, analisi del mercato ... 

11 numeri all'anno: L. 5.000 a numero 
Abbonamento: solo L 43.000 

Quando l'informazione 
fa testo 


In busta chiuso Inviate questo coupon a: 
Gruppo Editoriale Jackson 
via Roselllnl, 12 - 20124 Mi 

□ Desidero ricevere GRATIS un numero 

della Rivista_ 


(allego L 1000 in francobolli per 
contributo spese di spedizione) 

D Inviatemi GRATIS il Catalogo della 
Biblioteca JACKSON (allego L 1000 
in francobolli per contributo spese di 
spedizione) 

Nome_ 

Cognome_ 

via_ 

CAP_Città_ 
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Il tuo "cervello" in piu 
è Giapponese 

1 giapponesi sono piccoli? Alcuni si Ma sono 
anche molto robusti, veloci di riflessi e dotati di 
un'intelligenza viva e poliedrica Propno come 
TOSHIBA TllOO, il personal computer così picca 
lo e maneggevole da entrare comodamente in 
una 24 ore. ma così potente da poter competere 
con i personal da tavolo di prezzo notevolmen¬ 
te superiore Perchè TOSHIBA TllOO oltre ad ave¬ 
re un rapporto prezzo-prestazioni eccezionale è 
tecnologicamente superiore e totalmente com¬ 
patibile con il PC IBM • e con il suo software 
Con una memoria di 256 Kbyte. espandibile a 
512 Kbyte, un video a cristalli liquidi con una ri¬ 
soluzione grafica di 640x200 pixel, oltre all'in¬ 
terfaccia standard RGB e video composito, un 
disk drive interno da 720 Kbyte. la possibilità di 
un secondo drive esterno e un'autonomia di ol¬ 
tre otto ore con le batterie ricaricabili. TOSHIBA 
TllOO è molto di più di un personal portatile. È 
un vero cervello in più. ma non pensa avida¬ 
mente al vostro denaro 


ToshibaTllOQ 



IBM e IBM PC sono maichi registrati dalla International 
Business Machines Corporation 


TOSHIBA 


COmPUTER 


Made in Japan 


I £ 
I 


Attrezzature UtDao SpA 


PCI 


Vici Madonna de: Ripose 
: Te •. 


Desidero maggiori inlormaziom sul TOSHIBA 
TllOO 


I _ 

| Nome 
| Indirizzo 
| Teletono 


TL&DB 
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